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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 


SEO 0003 
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THE ML-11 MEMORY SYSTEM WITH ITS MOSTLY ARRAY TECHNOLOGY HAS 
THE FACILITY TO OFFSET AROUND KNOWN BAD MEMORY LOCATIONS IN 
ITS MEMORY ARRAYS. 

INITIALLY. THESE MEMORY ARRAYS ARE TESTED FOR BAD ROW AND COLUMf! 
ADDRESS LOCATIONS AND THE SPECIFIC OFFSETTING INFORMATION IS 
STORED IN PROM ON THE ARRAY MODULE. THIS TESTING IS DONE ON A 
SPECIAL 2224 MEMORY TESTER BY MEMORY MANUFACTURING. 

THE DESIGN OF THE ML11 HAS ALSO PROVIDED LOGIC THAT WHEN UNDER 
SOFTWARE CONTROL WILL UPDATE AN ARRAY MODULES OFFSETTING INFOR- 
MATION. THIS LOGIC IS TO BE UTILIZED WHEN ADDITIONAL MEMORY 
CELLS ARE DISCOVERED BAD AFTER THE SYSTEM HAS LEFT THE MANUFACT- 
URING FACILITY. 

FIELD SERVICE HAS REQUESTED THE CREATION OF A PROGRAM THAT WHEN 
RUN WILL TEST A GIVEN ML-11A OR ML-11B SYSTEM FOR ANY ADDITIONAL 
BAD MEMORY CELLS AND UPDATE THE OFFSET INFORMATION SUCH THAT THESE 
BAD LOCATIONS WILL BE MASKED FROM FURTHER OCCURANCES. 

THIS PROGRAM WILL SELECTIVELY UPDATE BAD MEMORY CELL OFFSETING 
FOR AN ENTIRE ML-11 SYSTEM. A SINGLE ARRAY MODULE OR A SINGLE 
BANK. 

THE PROGRAM WILL EXERCISE AN ML-11A OR ML-11B WITH ALL ONES. ALL 
ZEROES AND RANDOM DATA PATTERNS TO FIND ANY ADDITIONAL FAILING MEMORY 
CELLS. 

ONCE THE ADDITIONAL FAILING CELLS HAVE BEEN MASKED OUT THE 
PROGRAM WILL GO BACK INTO THE FAILING CELLS AND VERIFY THAT 
THESE BAD CELLS HAVE INDEED BEEN MASKED OUT. 

THE OPERATOR WILL BE NOTIFIED OF ANY ERROR CONDITIONS WHICH 
MIGHT OCCURE DURING THE EXECUTION OF THE PROGRAM. ADDITIONAL 
INFORMATION PERTAINING TO THESE ERROR MESSAGES CAN BE FOUND 
IN SECTION 3.0 OF THIS DOCUMENT. 

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE ( DRS> ). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 

THIS PROGRAM CAN BE USED WITH XXDP+. ACT. APT. SLIDE. 

FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES. REFER 
TO THE XXDP+ USER’S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

1. PDP-11 CENTRAL PROCESSOR WITH A MINIMUM OF 28K USABLE MAIN 
MEMORY. 

2. CONSOLE TERMINAL. 

3. RH11 OR RH70 DISK CONTROLLER. 
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4. A MINIMUM OF ONE ML-11A AND ML-11B SYSTEM ATTACHED TO THE 
ABOVE RH CONTROLLER. 
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5. XXDP* LOAD MEDIA. 


1.3 RELATED DOCUMENTS AND STANDARDS 

1. SUPPRGC.DOC 

2. SUPINT.MEM 

3. SUPFUN.C 

4. XXDPPLUS.DOC 

5. BLISS LANGUAGE GUIDE 

6. BLISS-16 USER'S GUIDE 


1.4 ASSUMPTIONS 

IT WILL BE ASSUMED THAT PRIOR TO RUNNING OF THIS PROGRAM 
THAT ALL APPROPRIATE CPU AND MAIN MEMORY DIAGNOSTICS HAVE 
BEEN SUCCESSFULLY RUN ON THE ML-II’S HOST SYSTEM. 

IT IS FURTHER ASSUMED THAT THE ML-11 LOGIC TEST AND THE 
ML-11 SYSTEM EXERCISER HAS BEEN SUCCESSFULLY RUN ON 
THE ML-11 SYSTEM AND THAT THE SYSTEM EXERCISER HAS SPECIFICALLY 
CALLED OUT THE RUNNING OF THE PROM MAINTENANCE ON THIS UNIT. 

THE SYSTEM EXERCISER WHEN IT CALLS FOR THE RUNNING OF THIS 
PROGRAM WILL INDICATE WHICH ARRAYS AND BANKS OF THE ML-11 
SYSTEM NEED TO BE PROM MAINTENANCED. THIS INFORMATION 
SHOULD BE THEN INPUTED INTO THIS PROGRAM. 

HOWEVER THIS PROGRAM IS DESIGNED TO GIVE THE 
OPERATOR THE OPTION TO PROM MAINTENANCE EITHER 
THE ARRAY AND BANK THAT THE SYSTEM EXERCISER 
CALLS OUT FOR PM'ING OR SELECT PROM MAINTENANCE 
FOR AN ENTIRE ARRAY MODULE (FOUR BANKS) OR 
SELECT PROM MAINTENANCE FOR THE ENTIRE ML-11 
SYSTEM (ALL PRESENT ARRAY MODULES). 


2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 

FOR DETAILED INFORMATION. REFER TO THE XXDP+ USER’S MANUAL (CHOUS). 

2.1 COMMANDS 

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND 


EFFECT 
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START START THE DIAGNOSTIC FROM AN INITIAL STATE SEQ 0005 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER A C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY! ) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT START TIME 
DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 

BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 

A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY. FOR EXAMPLE. TYPE "STA’’ INSTEAD OF ‘’START’'. 

THIS PROGRAM USES THE DIAGNOSTIC RUN TIME SERVICE FOR PROGRAM 
PARAMETER INPUT. ERROR REPORTING AND MESSAGE PRINTING. 

IT IS DESINGcD TO TEST ONE ML-11 SYSTEM AND IS EXPECTED TO RUN 
FROM START TO FINISH WITH NO OPERATOR INTERRUPTIONS (ie. A C). 

THEREFORE THE ONLY RECOGNIZED DRS> COMMAND BY THIS PROGRAM IS 
THE 'START' COMMAND AND CONTROL C AND ANY OTHER DRS> COMMAND 
MUST BE AVOIDED. 

FOR STATISTICAL ANALYSIS THIS PROGRAM. UPON AN DRS> COMMAND 'PRINT'. 

WILL DISPLAY TO THE CONSOLE TERMINAL A REPORT SUMMARY INDICATING 
WHERE THE PROGRAM HAS FOUND ADDITIONAL FAILING MEMORY CHIPS AND 
A COUNT OF FAILING ROWS AND COLUMNS WITHIN EACH CHIP. 

2.2 SWITCHES 

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 

THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW. A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 

SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS. FOR EXAMPLE - /TESTS: - ! s5:7— 10. 

THIS LIST WILL CAUSE TESTS 1.5.7.8.9.10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS: DDDDD EXECUTE DDDDD PASSES (DDDDD r 1 TO 64000) 

/FLAGS :FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 

r N SECTION 2 3 

/EOP: DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0.5.10.11.12 (UNIT NUMBERS = 0-63) 

EXAMPLE OF SWITCH USAGE: 


START/TESTS : 1 -5/PASS : 1000/E0P: 100 



THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL BE TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE "/TES:1-5" INSTEAD OF "/TESTS: 1-5 . 

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS PASS FLAGS EOP UNITS 


START 

RESTART 

CONTINUE 

PROCEED 

DROP 

ADD 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

EXIT 


AS MENTIONED BEFORE THE PROGRAM IS DESIGNED TO TEST ONE ML-11 
SYSTEM AND IS EXPECTED TO RUN F ROM START TO FINISH WITH NO 
OPERATOR INTERRUPTIONS. 

THEREFORE USAGE OF ANY SWITCHES WOULD PROVE MEANINGLESS TO 
THE PROGRAM AND SHOULD BE AVOIDED. 


2.3 FLAGS 

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND NAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 

FLAG EFFECT 


HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 
LOOP ON ERROR 
INHIBIT ALL ERROR REPORTS 
INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 
INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

DIRECT MESSAGES TO LINE PRINTER 
PRINT TEST NUMBER AS TEST EXECUTES 
'BELL" ON ERROR 

UNATTENDED MODE (NO MANUAL INTERVENTION) 
INHIBIT STATISTICAL REPORTS (DOES NOT 


SEQ 0006 




APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 

HAVE EVALUATION SUPPORT) 

•ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 

SEE THE XXDP* USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE. 

TO CAUSE THE PROGRAM TO LOOP ON ERROR. INHIBIT ERROR REPORTS 
AND TYPE A ’BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING: 

/FLAGS : LOE : I ER :BOE 


2. 4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?" 

YOU MUST ANSWER "Y" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN ^RELOADED" USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP* USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A "Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). ONLY ONE DRIVE IS PERMITTED TO BE PROM 
MAINTENANCED PER EXECUTION OF THE PROGRAM THEREFOR ANSWER THIS 
QUESTION WITH T. YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS. 

OPTION 1 'IS ENTIRE ML-11 SYSTEM TO BE MASKED’ 

TRANSFER 'SYS' IF TRUE 

OPTION 2 'IS A SINGLE ARRAY TO BE MASKED* 

TRANSFER 'BOARD' IS TRUE 

OPTION 3 'IS A SINGLE BANK TO BE MASKED' 

TRANSFER 'DONE' IF FALSE 

•ENTER BANK NUMBER TO BE MASKED' 

'BOARD' 'ENTER BOARD NUMBER TO BE MASKED' 

•SYS' 'STARTING RH REGISTER ADDRESS' 

•DRIVE UNDER TEST NUMBER' 

•DONE* 'ARE YOUR INPUTED PARAMETERS CORRECT' 

2.5 SOFTWARE QUESTIONS 

SOFTWARE QUESTIONS ARE NOT USED DURING THIS PROGRAM AND THIS 
QUESTION SHOULD BE ANSWERED WITH A 'NO' RESPONCE. 

HOWEVER IF A YES RESPONCE IS GIVEN THE FOLLOWING MESSAGE WILL 
BE PRINTED: 


NOT USED TYPE <CR>' 
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2.6 EXTENDED P-TABLE DIALOGUE 

TRADITIONALLY DRS> PROVIDES YOU WITH THE ABILITY TO 
BUILD P-TABLES FOR MULTIPLE DRIVE TESTING. BECAUSE OF THE 
IMPACT OF THIS PROGRAM ON AN ML-11 SYSTEM AND THE LENGTHY 
RUNTIME ONLY ONE DRIVE WILL BE PROM MAINTENANCED PER 
EXECUTION OF THIS PROGRAM. 

HOWEVER THE NATURE OF DRS> WILL STILL ALLOW YOU TO BUILD 
MULTIPLE DRIVE SELECTION FOR TESTING. THIS PROGRAM WILL 
TREAT THIS AS A SYSTEM ERROR AND SELECT THE FIRST P-TABLE 
BUILT FOR THE RUN TIME PARAMETERS. 


2.7 START-UP PROCEDURE (XXDP+) 

TO START-UP THIS PROGRAM: 

1. BOOT XXDP+ 

2. ENTER THE DATE 

3. TYPE "R CZMLC" 

4. TYPE "START" 

THE START COMMAND WILL BE THE ONLY COMMAND 
ACCEPTED BY THIS PROGRAM AND TYPING ANY OTHER 
COMMAND MUST BE AVOIDED. FOR TESTING MULTIPLE 
DRIVES REPEAT STEPS 4 THRU 7 FOR EACH DRIVE. 

5. ANSWER THE "CHANGE HW" QUESTION WITH "Y" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH ‘TT 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE „ 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL. BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE IER FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 

.WHERE; NAME = DIAGNOSTIC NAME ^ 

TYPE = ERROR TYPE (SYS FATAL, DEV FATAL. HARD OR SOFT) 
NUMBER = ERROR NUMBER 

UNIT NUMBER = 0 - N (N IS LAST UNIT IN PTABLE) 

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
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PC :XXXXXX = ADDRESS Of ERROR MESSAGE CALL 
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BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "IER" OR^TBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR G00D/8AD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "IER”. "IBR" OR "IXR" FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GCNERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 


ERROR NUMBER 
ERRJ 


ERROR DESCRIPTION 

ONLY THE DRS> START COMMAND IS RECOGNIZED 
TO START THE PROGRAM EXECUTION. 

ANY OTHER DRS> COMMAND WILL CAUSE THIS ERROR 


ERR.2 


DURING THE HARDWARE QUESTIONS THE OPERATOR 
IS ASKED IF A SINGLE BANK. A SINGLE ARRAY 
OR THE ENTIRE ML-11 SYSTEM IS TO BE PROM 
MAINTENANCED. 


HE/SHE IS THEN ASKED IF HIS/HER INPUTS ARE 
CORRECT. 


THIS ERROR DETECTS A NO ANSWER FOR SELECTING 
SYSTEM. ARRAY OR BANK AND A YES ANSWER TO ’ARE 
YOUR INPUTED PARAMETERS CORRECT'. 


ERR_3 


ERR. A 


ERR 5 


EVEN THOUGH DRS> WILL BUILD MULTIPLE P-TABLES 
THIS PROGRAM WILL USE AS ITS RUN TIME PARAMETERS 
THE LUN O'S ENTRIES. 

THIS ERROR DETECTS THE ABSENCE OF THIS FIRST 
P-TABLE 'LUN O'. 

THIS ERROR DETECTS UNCONFIRMED FAILING CHIPS. 

ie. CHIPS THAT FAILED DURING MASS BUS WRITE 
CHECK TRANSFERS BUT THE FAILURE DID NOT REOCCUR 
DURING DATA DIAGNOSTIC MODES. THIS MAY INDICATE 
THAT THIS FAILURE MAY BE A SOFT ERROR OR POSSIBLE 
HARDWARE ERRORS. 

CONDITION A 

THIS INDICATES THAT 'ONE' ALL BAD CHIP (GREATER 
THAN 10 ALL BAD ROWS AND OR COLUMNS) HAS BEEN 
DETECTED IN A CHIP AT A GIVEN BANK. 

THIS CHIP IS NOT PROM MAINTENANCED AND THE ERROR 
CORRECTION IS EXPECTED TO CORRECT THE FAILING DATA 
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FROM THIS CHIP UNTIL FIELD SERVICE CAN REPLACE 
THE ARRAY FROM WHICH THIS CHIP RESIDES. 

ERR.6 CONDITION B 

THIS INDICATES THAT A SECOND ALL BAD CHIP HAS 
BEEN DETECTED IN A GIVEN BANK. 

THE BAD CHIP IS NOT PROM MAINTENANCED AND FURTHER 
TESTING OF THIS ARRAY IS ABORTED. 

FIELD SERVICE SHOULD REPLACE THIS ARRAY BEFORE 
LEAVING THE SITE. 

ERR_7 CONDITION C 

INDICATES THAT BAD NIBBLE OFFSETS HAVE EXCEEDED 

14 OFFSETS RESULTING IN UNSAFE ERRORS. 

THE ARRAYS NIBBLE OFFSETS FOR THIS BANK ARE MASKED 
UP TO 14 OFFSETS. THE ERROR CORRECTION IS EXPECTED 
TO CORRECT THE UNMASKED ERRORS WHICH WERE LEFT 
BEHIND. 

FIELD SERVICE SHOULD REPLACE THIS ARRAY MODULE 
AT THE EARLIEST POSSIBLE DATA. 

ERR.8 CONDITION D 

THIS INDICATES THAT PROM BLAST ERRORS WERE DETECTED. 

THIS MEANS THAT THE SELECTED NEW PROM DATA WAS NOT 
WRITTEN INTO THE ARRAYS PROMS CORRECTLY. EITHER THE 
SELECTED PROM LOCATIONS WERE NOT WRITTEN CORRECTLY 
OR OTHER PROM LOCATIONS WERE INADVERTENTLY WRITTEN INTO. 

THIS COULD RESULT IN EITHER BAD LOCATIONS 

ARE NOT BEING MASKED OR GOOD LOCATIONS ARE BEING 

MASKED. 

LATER ROUTINES WILL DETERMINE IF THIS SITUATION 
WARRENTS THE ARRAY TO BE REPLACED. 

IF NO OTHER ERROR MESSAGES OCCUR AFTER CONDITION D 
MESSAGES THEN IGNORE THIS ERROR. 

ERR 9 AS MENTIONED BEFORE ONLY THE FIRST P-TABLE BUILT 

WILL BE USED AS THE PROGRAM PARAMETERS. 

THIS ERROR DETECTS THAT MORE THAN ONE P-TABLE 
WAS BUILT DURING THE HARDWARE QUESTIONS. 

ERR 10 DURING WRITING NEW PROM DATA TO THE PROMS THE 

DATA CLOCK BIT LOCATED ON THE ARRAY DATA MODULE 

15 TESTED FOR COMPLETION OF THE PROM WRITE. 

THIS ERROR DETECTS THE FAILURE OF THIS BIT TO 
CLEAR AFTER WRITING TO THE PROMS. 

ERR.11 AFTER THE PROMS HAVE BEEN WRITTEN WITH NEW PROM 
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DATA THE PROGRAM VERIFIES THAT ALL NEWLY FAILING 

ROUS AND COLUMNS HAVE BEEN SUCCESSFULLY MASKED OUT. SEQ 0011 

THIS ERROR DETECTS THE OCCURANCE OF UNCORRECTABLE 
ERROR DURING THIS VERIFY PASS. 

THIS ERROR CAN NOT BE TOLERATED AND THE ARRAY IS 
CALLED OUT FOR REPLACEMENT. 

FIELD SERVICE MUST REPLACE THIS ARRAY MODULE 
BEFORE LEAVING THE SITE. 

IF THIS ERROR STILL EXITS AFTER THE ARRAY IS 
REPLACED THEN POSSIBLE HARDWARE ERRORS MAY 
EXITS IN THE DRIVE. THE LOGIC TEST AND EXERCISER 
SHOULD BE RUN AGAIN. 

ERR 12 AGAIN DURING THE VERIFY PASS THE DRIVE IS EXAMINED 

FOR ERRORS AFTER BLASTING. 

SINGLE BIT ERRORS ARE TOLERATED IN BANKS WHICH 
ARE RUNNING DEGRADE MODE (EITHER ONE ALL BAD CHIP 
WAS LEFT BEHIND OR NI88LE OFFSETS GREATER THAN 
WERE DETECTED). HOWEVER NON ~ DEGRADE MODE BANKS 
SHOULD BE RUNNING ERROR FREE AFTER BLASTING. 

THIS ERROR DETECTS THE OCCURANCE OF ERRORS 
IN THE BANKS WHICH ARE NOT IN DEGRADE MODE. 

THIS COULD INDICATE THAT THE PROGRAM FAILED TO 
TO FIND AND MASK OUT ADDITIONAL ERRORS IN THE BANK 
OR THAT POSSIBLE HARDWARE ERRORS EXIST. 

THE PROGRAM SHOULD BE RUN ON THIS BANK AGAIN. 

IF THE ERROR STILL EXISTS THEN ISOLATE WHERE 
THE PROBLEM LIES. IF THIS PROGRAM IS SUSPECTED 
THEN CONTACT MEMORY DIAGNOSTIC ENGINEERING. 

ERR 13 THIS ERROR DETECTS THE PRESENTS OF UNEXPECTED 

DRIVE ERRORS DURING OR AFTER A MASS BUS TRANS- 
FER. AFTER THE A MESSA6E IS PRINTED STATING THE ERROR 
ALL THE DIRECTLY READ ML-11 REGISTERS ARE DUMPED 
TO THE TERMINAL FOR OPERATOR REVIEW. 


4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS. THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 

THIS PROGRAM WILL BE EXECUTED ONE TIME PER 'START* COMMAND ISSUED. 
THE DRS> REPORT OF HOW MANY OF ERRORS DETECTED HAS NO MEANING DURING 
EXECUTION OF THIS PROGRAM. 

ONf: THE PROGRAM EXECUTION HAS COMPLETED THIS JUST PM' ED UNIT IS 
POPPED TO SUPPRESS FURTHER PROGRAM EXECUTION AND CONTROL IS PASSED 
TO DRS>. 


DROPPING OF A UNIT RESULTS IN A DRS> MESSAGE OF 'PASS ABORTED FOR 
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THIS UNIT’. THIS MESSAGE HAS NO SIGNIFICANCE ON THE PROGRAMS 

EXECUTION AND SHOULD BE IGNORED. SEO 0012 

A REPORT OF THE PROGRAMS PERFORMANCE CAN BE OBTAINED VIA THE DRS> 

COMMAND 'PRINT'. 

5.0 DEVICE INFORMATION TABLES 

HARDWARE P-TABLE ENTRY DEFINITION 

TABLE LOCATION DESCRIPTION 

1. A HUTBL : INITIAL (0> STORES A TRUE OR FALSE VALUE AND 

HAS NO DEFAULT VALUE. 

SELECTS WHETHER THE ENTIRE ML-11 SYSTEM 
(ALL PRESENT ARRAYS) ARE TO BE PM 'ED. 

2. B HWTBL : INITIAL(O) STORES A TRUE OR FALSE VALUE AND 

HAS NO DEFAULT VALUE. 

SELECTS WHETHER A SINGLE ARRAY MODULE 
IS TO BE PM'ED. 

3. C HWTBL : INITIAL(O) STORES A TRUE OR FALSE VALUE AND 

HAS NO DEFAULT VALUE. 

SELECTS WHETHER A SINGLE BANK IS TO 
BE PM'ED. 

4. D HWTBL : INITIAL(O) STORES THE SELECTED BANK NUMBER TO 

BE PM'ED IF PM'ING SINGLE BANKS. 

THERE IS NO DEFAULT VALUE. 

5. E.HWTBL : INITIAL(O) STORES THE SELECTED ARRAY MODULE TO 

BE PM'ED IF PM'ING SINGLE ARRAYS. 

THERE IS NO DEFAULT VALUE. 

6. F HWTBL : INITIALH76400) STORES THE RH CONTROLLER BASE REGISTER 

ADDRESS. 

THE DEFAULT ADDRESS IS XO' 176400'. 

7. G.HWT8L : INITIAL(O) STORES THE DRIVE SELECTION NUMBER 

OF THE SELECTED DRIVE TO BE PM'ED. 

THERE IS NO DEFAULT VALUE. 

8. H.HWTBL : INITIAL(O) STORES THE DRIVE OPTION CODE FOR THE 

SELECTED DRIVE. 

YES = 16K MOS RAMS 
NO = 64K MOS RAMS 

9. I.HWTBL : INITIAL (TRUE) STORES A TRUE OF FALSE VALUE. 

THIS FORCES THE OPERATOR TO REVIEW 
HIS/HER PARAMETER INPUTS FOR CORRECTNESS 


j 
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BEFORE PERFORMING PROM MAINTENANCE. 
THE DEFAULT VALUE IS TRUE. 


6.0 PROM MAINTENANCE TABLE REPRESENTATIONS 
ERROR MAP 

THE ERROR MAP IS A BLOCK VECTOR OF 5)2 BLOCKS. 
THESE BLOCKS REPRESENT THE SECTORS IN A CHIP. 

EACH BLOCK HAS 8 WORDS. THESE BIT POSITIONS IN 
THE WORDS REPRESENT ROW ADDRESSES 0 TO 127. 

THE ADJACENT COLUMN ADDRESS FOR EACH ROW ADDRESS 
CAN Sc CALCULATED BY ADDING THE ROW ADDRESS TO THE 
ROWS SECTOR NUMBER. 


ERROR.MAP 


I I 

I ROWS 0-127 I 

I I 

I I 

I I 

I 1 

I I 

I ROWS 0-127 I 

I I 

I I 

I 1 


SECTOR 0 

SECTOR 1 


i 1 

I I 

I ROWS 0-127 I SECTOR 511 OR 127 

I I 

I I 

I 1 


MAIN BLAST TABLE 

THE BLAST TABLE IS A BLOCK VECTOR OF FOUR BLOCKS. 

EACH BLOCK REPRESENTS PROM BANKS 0 TO 3. 

EACH BLOCK HAS 512 WORDS. EACH BLOCK IS FURTHER 
DIVIDED INTO TWO SECTIONS. THE UPPER SECTION REPRESENTS 
ROW PROM DATA 0 TO 127 COR 0 TO 256 IF 64K CHIPS) 

AND THE LOWER SECTION COLUMN PROM DATA 0 TO 127 
(OR 0 TO 256 IF 64K CHIPS). 

MAIN BLAST TABLE 

I 1 
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I I 

I ROUS AORS I 

I I 

I I BANK 0 

I I 

I COLS ADRS I 

I I 

j 1 

I J 

I ROUS ADRS I 

I I 

I 1 BANK 1 

I I 

I COLS ADRS I 

I I 

I { 

I ROWS ADRS I 

I 1 

I j BANK 2 

I I 

I COLS ADRS I 

I I 

I 1 

I I 

I ROWS ADRS I 

I I 

I I BANK 3 

I I 

I COLS ADRS I 

I 1 

I 1 


THE BLAST TABLE IS LOADED WITH THE NEW PRO* DATA TO MASK 
OUT THE NEWLY FAILING ROWS AND COLUMNS AND IS ALSO LOADED WITH 
THE OLD PROM DATA FROM PREVIOUS PROM BLASTING. 

TEMP BLAST TABLE 

THE TEMP BLAST TABLE IS A BLOCK OF 10 WORDS. IN EACH WORD 
IS STORED A BAD ROW OR COLUMNS RESPECTIVE NIBBLE NUMBER. 

ITS ROW OR COLUMN NUMBER AND A FLAG TO TELL WHETHER THIS 
TABLE Eri! rw IS A ROW ADRS OR A COLUMN ADRS. 

THIS TABLE IS NfccoSARY BECAUSE ONCE A BAD ROW OR COLUMNS 
ADDRESS IS STORED INTO THE MAIN BLAST TABLE THERE IS NO 
WAY OF KNOWING OF WHICH NIBBLE THE ROW OR COLUMN COMES FROM. 
THIS INFORMATION IS NEEDED WHEN THIS PART IS DETERMINED TO 
BE ALL BAD ( > 10 ALL BAD ROW OR COLUMNS) IN THIS EVENT 
THIS CHIPS NEWLY FAILING ROWS AND COLUMNS ARE NOT BLASTED. 

TO ACCOMPLISH THIS THE TEMPORARY BLAST TABLE IS SIMPLY NOT 
TRANSFERED INTO THE MAIN BLAST TABLE. 


TEMP BLAST TABLE 


BITS 15 12 TO 4 3 TO 0 

I 1 

III I I 


SEO 0014 



C 2 

1 R c I IRC NUMBER I NIBBLE NUM I ENTRY 0 

I ‘ I I I I 

I 1 

III 1 I ENTRY 1 

III I I 

I 1 1 1 

III I I 

III I I ENTRY XX 

III I I 

I 1 1 1 

TABLES USED IN CALCULATING SELECTED ROUS AND COLUMNS 
FOR BLASTING. 

COLUMN COUNT TABLE 

THIS TABLE KEEPS A COUNT OF THE NUMBER OF TIMES THE 
COLUMNS FAILS WITH A PARTICULAR FAILING ROW. 

ROW COUNT 

THIS SINGLE VARIABLE COUNTS HOW MANY TIMES A ROW 
NUMBER IS FOUND BAD WHEN SEARCHING THE ERROR MAP. 

EACH TIME A ROW IS FOUND BAD THE COUNT IS INCREMENTED. 

IF THIS COUNT GETS > 10 THEN THIS ROW IS CALLED ALL 
BAD AND IS SELECTED FOR BLASTING. UHEN THIS HAPPENS 
THE COUNTS OF THE ADJACENT FAILING COLUMN IS DECREMENTED 
BY ONE AND THIS ROU NUMBER IN THE ERROR MAP IS CLEARED OF 
ALL OCCURANCES. 

IF THE ROU COUNT DOES NOT REACH > 10 AFTER SEARCHING THRU 
THE ERROR MAP THEN THIS ROU IS NOT SELECTED FOR BLASTING 
AT THIS TIME AND THE ADJACENT FAILING COLUMN COUNTS ARE 
NOT DECREMENTED. 

COLUMN POINTER TABLE 

AS MENTIONED BEFORE THIS TABLE POINTS TC THE ADJACENT 
FAILING COLUMN NUMBERS WHICH FAILED WITH THE ROU SEARCH. 

REMAINDERpTABLE^ EXECuTJ0N y JLL FJR$T SEARCH THE ERROR MAP FOR ROWS 

WITH GREATER THAN 10 COUNTS AND THE ADJACENT FAILING COLUMNS 
COUNTS ARE INCREMENTED. NOW ONCE THE ERROR MAP HAS BEEN SEARCH FOR 
ROWS COUNTS > 10 THEN COLUMN COUNT TABLE IS SEARCHED FOR COUJMN 
COUNTS > 10. IF A COLUMN COUNT IS > 10 THEN THIS COLUMN NUMBER 
IS SELECTED FOR BLASTING AND ITS COUNT IS CLEARED. 

ALL THAT IS LEFT NOW ARE RANDOM FAILING ROUS AND COLUMNS 
SCATTERED THROUGH THE CHIP. THESE SCATTERED ROW COLUMN 
PAIRS ARE TRANSFERED INTO THE REMAINDER TABLE WHERE THEY 
CAN BE INTERIGATED AND SELECTED FOR THE BEST POSSIBLE BLASTING 
CHOICE. 


COLUMN COUNT 
TABLE 


SEO 0015 


I 


I 



D 2 

REMAINDER TABLE 


SEO 0016 


I COL 0 

I COL 1 
I 

I COL 2 

I COL 3 

1 

I COL A 

I COL 5 

1 

I COL 6 

1 

I COL 7 

1 

I COL 8 

1 

I COL 9 

1 

I COL 10 

1 

I COL 11 

1 

I COL XX 
] 

ROW COUNT 


ROW ADRS 


COL ADRS 


I 


I 

I 

I 


I 

I 

I 


COLUMN COUNT POINTER TABLE 

I 1 

I I POINTER 0 

I 1 

I I POINTER 1 

I I 

I I POINTER 2 

I 1 

I I POINTER 3 

I 1 

I I POINTER XX 

I 1 


BAD CHIP TABLE 

THE BAD CHIP TABLE STORES AWAY FAILING CHIPS 
DISCOVERED BAD IN A BANK DURING WRITE CHECK TRANSFERS 
AND DURING SINGLE STEP DMA MODES. THE FAILING DATA PATTERN 
FOR EACH CHIP IS ALSO STORED. 

THIS TABLE IS A BLOCK OF 39 WORDS AND THE BIT DEFINITIONS ARE 
AS FOLLOWS: 


BIT 15 IS A FAULT INDICATOR 
BIT 14 INDICATES ZEROES DATA FAILURE 
BIT 13 INDICATES ONES DATA FAILURE 
BIT 12 INDICATES RANDOM DATA 1 FAILURE 

BIT 11 INDICATES RANDOM DATA 2 FAILURE 

BIT 10 INDICATES RANDOM DATA 3 FAILURE 

BIT 9 INDICATES RANDOM DATA 4 FAILURE 

BIT 8 INDICATES RANDOM DATA 5 FAILURE 

BIT 7 INDICATES RANDOM DATA 6 FAILURE 

BIT 6 INDICATES RANDOM DAT* 7 FAILURE 

BIT 5 INDICATES RANDOM DATA 8 FAILURE 

BIT 4 INDICATES RANDOM DATA 9 FAILURE 

BIT 3 INDICATES RANDOM DATA 10 FAILURE 

BIT 2 INDICATES RANDOM DATA 11 FAILURE 

BIT 1 INDICATES RANDOM DATA 12 FAILURE 

BIT 0 INDICATES RANDOM DATA 13 FAILURE 

BAD CHIP TABLE 


I 

I 

CHIP 

0 

I — 

— I 



I 

I 

CHIP 

1 

I — 

— I 



I 

I 

CHIP 

2 

I — 

— I 



I 

I 

CHIP 

3 

I — 

— I 



I 

I 

CHIP 

4 

I — 

— I 



I 

I 

CHIP 

5 

I — 

— I 



I 

I 

CHIP 

XX 

I — 

— I 



I 

I 

CHIP 

38 


I 1 


7.0 TEST SUMMARIES 

THIS PROM MAINTENANCE PROGRAM CONTAINS ONLY ONE TEST. THIS ONE 
TEST IS THE MAIN CONTROL LOOP WHICH LOOPS THE PROGRAM EXECUTION 
ON THE SELECTED ARRAYS AND BANKS FOR PROM MAINTENANCE. 


8.0 MAINTENANCE HISTORY 

MODIFIED BY: D.W. NEALE DATE: 18=FEB-82 VERSION: B 

MODIFICATIONS TO THIS DIAGNOSTIC ARE PRECEEDED WITH A LINE COMMENT 
OF VERSION CZMLCB'. 


SEO 0017 


)X 

ELUDOM 



BSKEL2 

REV B PATCH 00 

0001 
0002 
0003 

1493 

1494 

1495 

1496 

1497 

1498 

1499 
C 1500 
C 1501 
C 1502 
C 1503 
C 1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 
C 1516 
C 1517 
C 1518 
C 1519 
C 1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 
C 1536 
C 1537 
C 1538 
C 1539 
C 1540 
C 1541 


F 2 

18-Mar-1982 16:07:33 
18-Mar-1982 16:04:10 

MODULE BSKEL2 ( IDENT = 'REV B PATCH 00') = 

BEGIN 

REQUIRE 'BLSMAC.REQ'; 

XSBTTL ' PROGRAM HEADER' 

LITERAL 

DStNBR.OF .TESTS = 1; 

X< 

;*THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 

>X 

EQUALS; 

POINTER (ALL); 

HEADER <XASCH’CZMLCA\XASCH'B',XASCir0\120.0.PRI00>; 

XSBTTL 'DISPATCH TABLE' 

X( 

; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 

; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 

i% 

DISPATCH (DSJNBR.OF.TESTS); 

ERRTBL; 


XSBTTL 'DEFAULT HARDWARE P-TABLE' 

X( 

; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 

; AND IS USED AS A "TEMPLATE" FOR BUILDING THE P-TABLES. 
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C 1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 
C 1560 
C 1561 
C 1562 
C 1563 
C 1564 
C 1565 
C 1566 
C 1567 
C 1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 
C 1589 
C 1590 
C 1591 
C 1592 
C 1593 


DEFAULT HARDWARE P-TA81E 


BGNHU (DFPTBL); 

global 

A HWT8L : INITIAL (0). 
B’HWTBL : INITIAL (0), 
C"HUTBL : INITIAL (0), 
D’HWTBL : INITIAL (0), 
E'HWTBL : INITIAL (0), 
f'HWTSL : INITIAL <XC 
6‘HWTBL : INITIAL (0) 
H’HWTBL : INITIAL (1) 
rHWTBL: INITIAL (1); 

ENDHU; 

XSBTTL 'SOFTWARE P-TABLE' 
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IHASK ENTIRE SYSTEM FLAG INDICATOR 
IMASK A SINGLE ARRAY FLAG INDICATOR 
IMASK A SINGLE BANK FLAG INDICATORG 
IBANK NO. TO BE MASKED 
! ARRAY NO. TO BE MASKED 


INJIiAL vuj, nu. iu oc 

INITIAL (10*176400'). !RH REGISTER BASE ADRS 


INITIAL (0). 
INITIAL (1). 


! DRIVE SELECT NO. OF DRIVE TO MASKED 
! OPTION. 1 = 16K MOS RAMS. 0 = 64K MOS RAM 
IPARAMETERS CORRECT INDICATOR 


THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
SET UP A ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 

AT RUN TIME. HOWEVER THIS PROGRAM WILL NOT USE THIS OPTIONAL 
SECTION. 


THERE ARE NO SOFTWARE QUESTIONS USED 
DURING THIS PROGRAM. HOWEVER THIS 
SOFTWARE TABLE LOCATION IS PROVIDED 
IN THE EVENT OF A 'YES' RESPONCE TO 
THE DR$> SOFTWARE QUESTION 'Change Software' 


BGNSU (SFPTBL); 

GLOBAL 

SWTBLf.RET 

ENDSW; 


INITIAL (0); 


I DUMMY ARGUMENT 


XS8TTL 'PROTEC < JON TABLE’ 


THIS TABLE IS USED BY THE RUNTIME SERVICES 
TO PROTECT THE LOAD MEDIA. 


BSKEL2 

REV B PATCH 00 PROTECTION TABLE 

1594 )t 
T 595 

1596 BGNPROT (-1 ,-1 ,-1 ) ; 

1597 

1598 

1599 ! 1 ST ARG = 

1600 !2ND FRG = 

1601 .'3RD ARG = 

1602 

1603 ENDPROT; 

1604 

1605 

1606 END 

1607 ELUDOM 
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OFFSET INTO P-TABLE FOR CSR ADDRESS 
OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
OFFSET INTO P-TABLE FOR DRIVE NUMBER 


.TITLE BSKEL2 
.IDENT /REV B / 


000000 




.PSECT 

SCODES 

000000 

103 

132 

115 

L SNARE ASCII 

/CZM/ 

•YiYilA 

114 

103 

101 

.ASCII 

/LCA/ 

Cvt'iVl 

000 



.BYTE 

0 

titS'/I 

000 



.BYTE 

0 

vvil'l 




LSREV: : 



102 



.ASCII 

/B/ 

000011 

060 



.ASCII 

/O/ 

000012 

OOOOOOG 



L$UNIT: : .WORD 

TSPTHV 

000014 

000170 



LSTIML : : .WORD 

170 

000016 

OOOOOOG 



LSHPCP: : .WORD 

LSHARD 

000020 

OOOOOOG 



LtSPCP: : .WORD 

LSSOFT 

000022 

000140’ 



LSHPTP: : .WORD 

LSHW 

000024 

000166’ 



LSSPTP: : .WORD 

LSSW 

000026 

OOOOOOG 



LSLADP: : .WORD 

LSLAST 

000030 

000000 



LfSTA: : .WORD 

0 

000032 

000000 



LSCO:: .WORD 

0 

000034 

000000 



LSDTYP: : .WORD 

0 

000036 

000000 



L$APT: : .WORD 

0 

000040 

000124’ 



LSD TP:: .WORD 

LSDISPATCH 

000042 

000000 



LSPRIO: : .WORD 

0 

000044 

000000 



LSENVI : : . WORD 

0 

000046 

000000 



LSEXP1 : : .WORD 

0 

00005C 




LSMREV: : 


000050 

003 



.BYTE 

3 

000051 

003 



.BYTE 

3 

000052 

000000 



ISEF : : .WORD 

0 

000054 

000000 



.WORD 

0 

000056 

000000 



LSSPC : : .WORD 

0 


OOOOOOG 



LSDEVP: : .WORD 

ISDVTYP 

000062 

OOOOOOG 



LSREPP::.WORD 

LSRPT 

000064 

000000 



LSEXP4: : .WORD 

0 
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000066 

OOOOOO 

LSEXP5 

:.W0RD 

0 

000070 

wxEmm 

LSAUT: 

.WORD 

LSAU 

000072 

OOOOOOG 

LSDUT: 

.WORD 

kSDU 

000074 


LSIUN: 

.WORD 

0 

000076 

OOOOOOG 

LSDESP 

.‘.WORD 

LSDESC 

000100 

104035 

000126' 

LSLOAD 

: . WORD 

-73743 

000102 

LSETP: 

.WORD 

LSERRTBL 

000104 


LSI CP: 

.WORD 

LSINIT 

000106 

OOOOOOG 

LSCCP: 

.WORD 

lsclean 

ooono 

OOOOOOG 

000172* 

LSACP: 

.WORD 

LSAUTO 

000112 

LSPRT: 

.WORD 

LSPRO T 

000114 


LSTEST 

: .WORD 

0 

000116 

000000 

LSDLT: 

.WORD 

0 

000120 


L SHINE 

.-.WORD 

0 

000122 

000001 

DSPCNT 

.‘.WORD 

1 

000124 

OOOOOOG 

LSDISPATCH: : 

.WORD 

T1 

000126 


ERRTVP 

:.BLKW 

1 

000130 


ERRNBR 

:.BLKW 

1 

000132 


ERRMSG 

:.8LKW 

1 

000134 


ERRBLK 

: .8LKW 

1 

000136 

ooooooc 

LSHWLEN: : 

.WORD 

«LSNDHW-LSHWLEN>/2> 

000140 

000000 

A.HWTBL: : 

.WORD 

0 

000142 

000000 

B.HWTBL: ; 

.WORD 

0 

000144 

000000 

C.HUT8L:: 

.WORD 

0 

000146 

000000 

D.HWT8L: : 

.WORD 

0 

000150 

000000 

E.HWT8L:: 

.WORD 

0 

000152 

176400 

F.HWT8L: : 

.WORD 

-1400 

000154 

000000 

G.HWT6L: : 

.WORD 

0 

000156 

000001 

H.HWT8L: : 

.WORD 

1 

000160 

000001 

I.HWT8L: : 

.WORD 

1 

000162 


LSNDHW 

: : .8LKW 

1 

000164 

ooooooc 

LSSWLEN: : 

.WORD 

«L$NDSW-L$SWLEN>/2> 

000166 

000000 

SWT8LS.RET: : 

.WORD 

0 

000170 


LSNDSW 

: : .8LKW 

1 

000172 

177777 

LSPROT 

: : .WORD 

-1 

000174 

177777 


.WORD 

-1 

000176 

177777 


.WORD 

-1 
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. GL09L LSSOFT, TSPTHV, L$RPT, LJINIT 
, GLOBL lSCLEAN, LSLAST. LSHARD, LSDVTTP 
.GLOBL LSDESC, L$DU. L$AU, LSAUTO, T1 
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020000 

010000 

004000 

002000 

001000 

000400 

000200 


lT»Ti 

|V» i 
»?»!>?> 


o 
o 
0 
0 

000001 

001000 

000400 

000200 

000100 

000040 

000020 

000010 

000004 

000002 

000001 

000040 

000037 

000036 

000035 

000034 



000100 
000040 
0 
0 
O' 

0 
0 
0 
0 
0 
0 


BIT15== 

BIT14" 

BIT 13== 
BIT12== 
BIT11== 
8IT10== 
BIT09== 
BIT08== 
BIT07== 
BIT06== 
BIT05== 
BIT04== 
BIT03== 
BIT02== 
BIT01== 
BITOO== 

BIT9== 

BIT8== 

BIT7== 

8IT6== 

BIT5== 

BIT4== 

BIT3== 

BIT2== 

BIT1== 

BITO== 

EF.START== 

EF.RESTART== 

EF.CONTINUE== 

EF.NEU== 

E F . PUR== 

PR 107== 

PR I 06== 

PR I 05== 

PR I 04== 

PR I 03== 

PR I 02== 

PR I 01== 


-100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 

40 
37 
36 
35 
34 
340 
300 
240 
200 
140 
100 
40 
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002000 

PRI== 

004000 

IXE== 

010000 

IBE== 

020000 

IER== 

040000 

L0E== 

100000 

H0E== 

000126* 

lserrtbl== 

000166* 

LSSW== 

000140* 

LJHU== 

000011' 

LSDEP0== 

000140* 

DFPT8L== 

000166* 

SFPTBL— 


Size: 0 code ♦ 64 data words 

Run Tine: 00:03.4 

Elapsed Time: 00:10.0 
Memory Used: 29 pages 
Compilation Complete 
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2000 

4000 

10000 

20000 

40000 

-100000 

ERRTYP 

LSSULEN+2 

LSHULEN+2 

LlREV+1 

LSHWLEN+2 

L$SULEN*2 
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; 0001 

0002 

; 0003 

; 1493 

1494 

1495 

1496 

; 1497 

1498 

; 1499 

1500 

1501 

1502 

1503 

; 1504 

1505 

1506 

1507 

1508 

; 1509 

1510 
C 1511 
; C 1512 

; C 1513 

C 1514 
C 1515 
; C 1516 

C 1517 
C 1518 
C 1519 
1520 

; 1521 

; 1522 

; 1523 

; 1524 

; 1525 

; 1526 

1527 

; 1528 

1529 

1530 

1531 

; 1532 

1533 

1534 

; 1535 

; 1536 

; 1537 

; 1538 

; 1539 

; 1540 

; 1541 
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MODULE BSKEL3 C i DENT = 'REV B PATCH 00’) = 

BEGIN 

REQUIRE 'BLSMAC.REQ' ; 

EQUALS - 

EXTERNAL ROUTINE 

SUMMARY : NOVALUE; .'SUMMARY REPORT CODE ROUTINE 

XSBTTL ‘TYPE AND DESCRIPTION’ 


DEVTYP (XASCIZ'ML-11 BLOCK MODE MEMORY SYSTEM'); 


DESCRIPT (XASCIZ'ML-11 PROM MAINTENANCE PROGRAM’); 


ZSBTTL 'HARDWARE PARAMETER CODING SECTION' 

X( 

; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
; THAT ARE USED 8Y THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 

>r 

8GNHRD; 

BIND 

i 

! DEFINE HARDWARE MESSAGES 

i 

M SYS = UPLITUASCIZ'IS ENTIRE HL-11 SYSTEM TO BE MASKED ?'). 

M ARR = UPLIT (XASCIZ'IS A SINGLE ARRAY TO BE MASKED ?’), 

M“BNK = UPLITCXASCIZ'IS A SINGLE BANK TO BE MASKED ?*>. 

M BNK NO = UPLIT (ZASCIZ 'ENTER BANK NO. TO BE MASKED ?'), 

M BRD NO = UPLITCXASCIZ'ENTER BOARD NO. TO BE MASKED ?'). 

m rh Base = uplituasciz'starting rh base register address ?•> 

M'DUT = UPLITCXASCIZ'DUT DRIVE NUMBER ?'). 

M"OPTION = UPLITOASCIZ'IS DRIVE OPTION AN MlIIA ?'). 

M.CORRECT = UPLITCXASCIZ’ARE YOUR INPUTED PARAMETERS CORRECT ?'); 

i SELECT WHICH OPTION THE PROGRAM IS 
! TO RUN UNDER. 

! OPTION 1. PROM MAINT ENTIRE ML11 SYSTEM 

! OPTION 2. PROM MAINT A SINGLE ARRAY 

! OPTION 3. PROM MAINT A SINGLE BANK 
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; 1542 

1543 

1544 

1545 

; 1546 

; 1547 

1548 

1549 

; 1550 

1551 

1552 

; 1553 

; 1554 

; 1555 

1556 

1557 

1558 

1559 

; 1560 

1561 

; 1562 

; 1563 

; 1564 

1565 

; 1566 

1567 

1568 

; 1569 

1570 

; 1571 

1572 

1573 

; 1574 

1575 

1576 

1577 

; 1578 

1579 

1580 

; 1581 

; 1582 

1583 

; 1584 

1585 

1586 

; 1587 

1588 

1589 

1590 

1591 

; C 1592 

C 1593 


HARDWARE PARAMETER CODING SECTION 
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! ASK AM 1 TO MASK AN ENTIRE SYSTEM ? 

i 

GPRMLCM SVS.XO'O'.I.NO.I); 

XFERTCDfiV.PRAM); 

! ASK AM I TO MASK AN ENTIRE ARRAY ? 

I 

GPRMLCM ARR.XO'2' .1 ,NO,1) ; 

XFERT(ERTER.BOARD); 

i ASK AM I TO MASK A SINGLE BANK ? 

* 

GPRML (MJ3NK .XO ' 4 ' . 1 ,N0. 1 ) ; 

j INPUT TO THE PROGRAM THE SELECTED 
! PROGRAM RUN TIME PARAMETERS. 

i 

XFERF(DONE.HRD); 

! ENTIRE BANK TO BE PROM MAINT 

GPRMD (M BNK_N0,X0'6' ,D,X0'7' .O.ZDECIMAL'3' #N0,1); 
$LCENTER_BO*RD); 

i ENTIRE BOARD TO BE PROM MAINT 

GPRMD (M BRD NO.XO'IO' .D.X0'77’ ,0,XDECIMAL'15' .N0.1); 
$L(DRV_PRAMT; 

! ENTIRE RH BASE ADDRESS 

! ENTIRE DRIVE UNDER TEST 

! ENTIRE DRIVE OPTION 16K PARTS OR 64K PARTS 

GPRMA (M RH BASE .XO , 12 , ,O.O.XO'177777‘YES,1); 
GPRMDIM DUT.XO'14* .0.10 V’ ,O f IO , 77',NO,1); 

GPRMLCM OPTION.XO'16 ,1 ,N0,l5; 

! FORCE THE OPERATOR TO REVIEW HIS INPUTED 
! PARAMETERS FOR CORRECTNESS BY ASKING THE 
! NEXT QUESTION. THE INIT CODE WILL ABORT 
! THE PROGRAM EXECUTION IF HE RETURNS A NO 
! RESPONCE 

i 

$L(DONE HRD); 

GPRBLCM CORRECT. X0'20M. YES. 1); 

ENDHRD; 

XSBTTL 'SOFTWARE PARAMETER CODING SECTION' 


BSKEL3 

REV B PATCH 00 


1594 

1595 

1596 

1597 

1598 

1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

1608 
"409 
IfcIO 
16* 1 
16' 2 
1413 

1614 

1615 

1616 

1617 

1618 

1619 

1620 
1621 
1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 


OOOOCO 


SOFTWARE PARAMETER CODING SECTION 


N 2 

18-Mar- 1982 16:07:45 
18-Mar-1982 15:44:21 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

WITH THE OPERATOR. HOWEVER THIS PROGRAM WILL NOT USE THIS SECTION. 


h 


BGNSFT; 

BIND 

i 

j DEFINE THE SOFTWARE MESSAGES 


M RET = UPLITCXASCIZ’ NOT USED TYPE <CR>’>; 

i “ 

j INPUT THE SOFTWARE QUESTION TO THE PROGRAM 

i 

GPRML(M_RET,0,1 ,YES,1); 

ENDSFT; 

XSBTTL ’REPORT CODING SECTION’ 


X( 


THE REPORT CODING SECTION CONTAINS THE 
’PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 


)X 

BGNfiPT; 

i 

! THE SUMMARY REPORT CODE ROUTINE FOR THIS 
• PROGRAM IS LOCATED IN PMSKL4 OF THIS 
! DIAGNOSTIC. 


SUMMARY (); 

RETURN; 

.‘CALL THE REPORT SUMMARY ROUTINE 

ENDRPT; 

.TITLE 8SKEL3 
.IDENT /REV B / 


.PSECT SCODES 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>PMSKL3.8LI.1 (1) 



BSKEL3 

REV B PATCH 00 REPORT C0DIN6 SECTION 
000000 115 114 055 



000040 

000043 

000046 



000070 

000073 

000076 

000100 


115 

114 

055 

061 

061 

040 

102 

114 

117 

103 

M3 

040 

115 

117 

104 

105 

040 

115 

105 

115 

117 

122 

131 

040 

123 

131 

123 

124 

105 

115 

000 

000 

055 

115 

114 

061 

061 

040 

120 

122 

117 

115 

040 

115 

101 

111 

116 

124 

105 

116 

101 

116 

103 

105 

040 

120 

122 

117 

107 

122 

101 

115 

000 

000 



OOOOOOC 


LSDVTYP:: 

.ASCII 
-ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
LSDESC: .'.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
LSHRDLN: : 

.WORD 


000102 000120 
000104 000000' 
000106 000001 
000110 OOOOOOC 

000112 001120 
000114 000046' 
000116 000001 
000120 OOOOOOC 

000122 002120 
000124 000114' 
000126 000001 
000130 OOOOOOC 

000132 003042 
000134 000162* 
000136 000007 
000140 000000 
000142 000003 
000144 001004 

000146 004042 
000150 000230' 
000152 000077 
000154 000000 
000156 000017 


GPS1 : : .WORD 
.WORD 
.WORD 

SDR V. PRAM: 

.WORD 
GPS 2:: .WORD 
.WORD 
.WORD 
SENTER. BOARD: 

.WORD 
GPS3: : .WORD 
.WORD 
.WORD 

SDONE.HRD: 

.WORD 
GPS4 : : .WORD 
.WORD 
.WORD 
.WORD 
.WORD 
SLENTER. BOARD: 

.WORD 
GPS5 : : .WORD 
.WORD 
.WORD 
.WORD 
.WORD 



BSKEL3 

REV B PATCH 00 REPORT CODING SECTION 
000160 001004 


C 3 

18-Har-1982 16:07:45 
18-Mar-1982 15:44:21 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>PHSKL3.BU.1 (1) 


Page 
SEO 0028 


000162 

000164 

000166 

000170 

000172 

000174 

000176 

000200 

000202 

000204 

000206 

000210 

000212 

000214 

000216 

000220 

000222 


005031 

000276’ 

000000 

177777 

006022 

000344’ 

000007 

000000 

000077 

007120 

000376’ 

000001 

001004 

010130 

000436’ 

00C001 


000224 OOOOOOC 

000226 000130 
000230 000504' 
000232 000001 
000234 


GPS6: 


GPS/:: 


GPS8: 


LSNDHRD 


.WORD 

1004 

.WORD 

5031 

.WORD 

M.RH.BASE 

.WORD 

0 

.WORD 

-1 

.WORD 

6022 

.WORD 

M.DUT 

.WORD 

7 

.WORD 

0 

.WORD 

77 

.WORD 

7120 

.WORD 

N. OPTION 

.WORD 

1 

HRD: 

.WORD 

1004 

.WORD 

10130 

.WORD 

M. CORRECT 

.WORD 

1 

‘!blkw 

l • • 

1 

‘[word 

<«LSNDSF 

.WORD 

130 

.WORD 

M.RET 

.WORD 

1 

’ Iblkw 

1 


000000 

000000 

in 

123 

040 

P.AAA: 

.PSECT 

.ASCII 

SPLITS, 
/IS / 

000003 

105 

116 

124 


.ASCII 

/ENT / 


111 

122 

105 


.ASCII 

/IRE/ 


040 

115 

114 


.ASCII 

/ ML/ 

000014 

055 

061 

061 


.ASCII 

/-II/ 

000017 

040 

123 

131 


.ASCII 

/ sr/ 

I'Kv’FMI 

123 

124 

105 


.ASCII 

/STE/ 

MiIiTm 'Hi 

115 

040 

124 


.ASCII 

m t/ 

t«SMi .itfll 

117 

040 

102 


.ASCII 

/O B/ 

ISsw 

105 

040 

115 


.ASCII 

/E «/ 


101 

123 

113 


.ASCII 

/ASK/ 

000041 

105 

104 

040 


.ASCII 

/ED / 

000044 

000046 

077 

111 

000 

123 

040 

P.AA8: 

.ASCII 

.ASCII 

/?/<00> 
/IS / 


101 

040 

123 


.ASCII 

/A S/ 


111 

116 

107 


.ASCII 

/ING/ 


114 

105 

040 


.ASCII 

/LE / 


101 

122 

122 


.ASCII 

/ARR/ 


101 

131 

040 


.ASCII 

/AY / 


124 

117 

040 


.ASCII 

/TO / 







TO PS-20 Bliss-16 V2C21 2) 
PA:<NEALE>PMSKl3.BU.i (1) 


BSKEL3 


REV B PATCH 00 

REPORT 

CODING SECTION 




000073 

102 

105 

040 


.ASCII 

/BE / 

000076 

115 

101 

123 


.ASCII 

/MAS/ 

000101 

113 

105 

104 


.ASCII 

/KED/ 

000104 

040 

040 

040 


.ASCII 

/ / 

000107 

040 

040 

040 


.ASCII 

/ / 

000112 

077 

000 



.ASCII 

/?/<00> 

000114 

111 

123 

040 

P.AAC : 

.ASCII 

/IS / 

000117 

101 

040 

123 


.ASCII 

/A S/ 

000122 

111 

116 

107 


.ASCII 

/ING/ 

000125 

114 

105 

040 


.ASCII 

/LE / 

000130 

102 

101 

116 


.ASCII 

/BAN/ 

000133 

113 

0 4v 

124 


.ASCII 

/K T/ 

000136 

117 

040 

102 


.ASCII 

/O B/ 

000141 

105 

040 

115 


.ASCII 

/E M/ 

000144 

101 

123 

113 


.ASCII 

/ASK/ 

000147 

105 

104 

040 


.ASCII 

/ED / 

000152 

040 

0/ A 

040 


.ASCII 

/ / 

000155 

040 

040 

040 


.ASCII 

/ / 

000160 

077 

000 



.ASCII 

/?/<00> 

000162 

105 

116 

124 

P.AAD: 

.ASCII 

/ENT/ 

000165 

105 

122 

040 


.ASCII 

/ER / 

000170 

102 

101 

116 


.ASCII 

/BAN/ 

000173 

113 

040 

116 


.ASCI I 

/K N/ 

000176 

117 

056 

040 


.ASCII 

/O. / 

000201 

124 

117 

040 


.ASCII 

/TO / 

0OC204 

102 

105 

040 


.ASCII 

/BE / 

000207 

115 

101 

123 


.ASCII 

/MAS/ 

000212 

113 

105 

104 


.ASCII 

/KED/ 

000215 

040 

040 

040 


.ASCII 

/ / 

000220 

040 

040 

040 


.ASCII 

/ / 

000223 

040 

040 

040 


.ASCII 

/ / 

000226 

077 

000 



.ASCII 

/?/<00> 

000230 

105 

116 

124 

P.AAE: 

.ASCII 

/ENT/ 

000233 

105 

122 

040 


.ASCII 

/ER / 

000236 

102 

117 

101 


.ASCII 

/BOA/ 

000241 

122 

104 

040 


.ASCII 

/RD / 

000244 

116 

117 

056 


.ASCII 

/NO./ 

000247 

040 

124 

117 


.ASCII 

/ TO/ 

000252 

040 

102 

105 


.ASCII 

/ BE/ 

000255 

040 

115 

101 


.ASCII 

/ MA/ 

000260 

123 

113 

105 


.ASCII 

/SKE/ 

000263 

104 

040 

040 


.ASCII 

/D / 

000266 

04 0 

040 

040 


.ASCII 

/ / 

000271 

040 

040 

040 


.ASCII 

/ / 

000274 

077 

000 



.ASCII 

/?/<00> 

000276 

123 

124 

101 

P.AAF: 

.ASCII 

/STA/ 

000301 

122 

124 

111 


.ASCII 

/RTI/ 

000304 

116 

107 

040 


.ASCII 

/N6 / 

000307 

122 

110 

040 


.ASCII 

/RH / 

000312 

102 

101 

123 


.ASCII 

/BAS/ 

000315 

105 

040 

122 


.ASCII 

/E R/ 

000320 

105 

107 

111 


.ASCII 

/EGI/ 


D 3 

18-Mar-1982 16:07:45 
18-Mar-1982 15:44:21 


Page 6 
SEQ 0029 



f 


BSKE13 

REV B PATCH 00 REPORT CODING SECTION 


000323 

123 

124 

105 


.ASCII 

000326 

122 

040 

101 


.ASCII 

000331 

104 

104 

122 


.ASCII 

000334 

105 

123 

123 


.ASCII 

000337 

040 

040 

040 


.ASCII 

000342 

077 

000 



.ASCII 

000344 

104 

125 

124 

P.AAG: 

.ASCII 

000347 

040 

104 

122 


• ASCII 

000352 

111 

126 

105 


.ASCII 

000355 

040 

116 

125 


.ASCII 

000360 

115 

102 

105 


.ASCII 

000363 

1 22 

Oil 

Oil 


.ASCII 

000366 

040 

040 

040 


.ASCII 

000371 

040 

040 

077 


•ASCII 

000374 

000 

000 



.ASCII 

000376 

111 

123 

040 

P.AAH: 

.ASCII 

000401 

104 

122 

111 


.ASCII 

000404 

126 

105 

040 


.ASCII 

000407 

117 

120 

124 


.ASCII 

000412 

111 

117 

116 


.ASCII 

000415 

040 

101 

116 


.ASCII 

000420 

040 

115 

114 


.ASCII 

000423 

061 

061 

101 


.ASCII 

000426 

Oil 

040 

040 


.ASCII 

000431 

040 

040 

040 


.ASCII 

000434 

077 

000 



.ASCII 

000436 

101 

122 

105 

P.AAI: 

.ASCII 

000441 

04C 

131 

117 


.ASCII 

000444 

125 

122 

040 


.ASCII 

000447 

111 

116 

120 


.ASCII 

000452 

125 

124 

105 


.ASCII 

000455 

104 

040 

120 


.ASCII 

000460 

101 

122 

101 


.ASCII 

000463 

115 

105 

124 


.ASCII 

000466 

105 

122 

123 


.ASCII 

000471 

040 

103 

117 


.ASCII 


474 

122 

122 

105 


.ASCII 

iVij 

477 

103 

124 

040 


.ASCII 


502 

077 

000 



.ASCII 

000 

504 

040 

116 

117 

P.AAJ : 

.ASCII 

000 

507 

124 

040 

125 


.ASCII 

iTf 

Vfi 

512 

123 

105 

104 


.ASCII 

iVi 

515 

040 

124 

131 


.ASCII 

■Vi 

520 

120 

105 

040 


.ASCII 

•Vi 


074 

103 

122 


.ASCII 


526 

076 

000 



.ASCII 


.GL08I 


100000 


BIT 15== 


Pag* 
SEQ CC 5 


E 3 

18-«*r-1982 16:07:45 
18-H*r-1982 15:44:21 


/STE/ 

/R A/ 

/DDR/ 

/ESS/ 

/ / 

/?/< 00 > 

/OUT/ 

/ DR/ 

/IVE/ 

/ NU/ 

/«8E/ 

/R/<1 1 ><1 1 > 
/ / 


/ ?/ 
< 00 >< 00 > 
/IS / 

mi/ 

/Vt / 


/OPT/ 



/net/ 

/ERS/ 

/ co/ 

/RRE/ 
/CT / 
/?/< 00 > 
/ NO/ 



TOPS-20 8tiss-16 V2<212) 
PA:<NEAIE>PNSK13.8LI.1 (1) 


StffURY 


100000 









BSKEL3 

REV B PATCH 00 REPORT 

000102 ' 

000000 ' 

000046' 

000114' 

000162' 

000230* 

000276* 

000344' 

000376* 

000436' 

000226' 

000504' 


CODING SECTION 

L$HARD== 

M.SYS= 

M. ARR= 

N. BNK- 
M.BNK.NO= 
M.BRD.NO= 
M.RH.BASE~ 
M.DUT= 

M. OPTION= 

N. CORRECTS 
L$SOFT== 
M.RET= 


G 3 

18-Mar-1982 16:07:45 
18-Mar-1982 15:44:21 

LSHROLN+2 

P.AAA 

P.AAB 

P.AAC 

P.AAD 

P.AAE 

P.AAF 

P.AAG 

P.AAH 

P.AAI 

LSSFTLN*2 

P.AAJ 


TOPS-20 Bliss-16 V2 <21 2) 
PA:<NEALE>PMSKL3.BL:." '1> 


000236 



•S8TTL 

.PSECT 

LRPT REPORT CODING SECTION 
$CODE$ 

000236 004767 
000242 000207 

OOOOOOG 

LRPT : 

JSR 

RTS 

PC, SUMMARY 

PC 

; Routine Size: 

; Maximum stack 

3 words 

depth per invocation: 

0 words 




Page 9 
SEQ 0032 


1635 

1616 


000244 004767 
000250 104425 
000252 000207 


177766 


.S8TTL LSRPT REPORT CODING SECTION 
ISRPT:: JSR PC.LRPT 

TRAP 25 

RTS PC 


; Routine Size: 4 words 

; Maximum stack depth per invocation: 0 words 


1639 

1640 

1641 
C 1642 
C 1643 
C 1644 
C 1645 
C 1646 
C 1647 
C 1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 


tSBTTL 'AUTODROP SECTION' 


X i 

'♦ 


! THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
! THE "ADR" FLAG WAS SET. THE UNIT(S)_UNDER_TEST ARE CHECKED TO 
! SEE IF THEY WILL RESPOND. ‘ “ — - - ~ 

' DROPPED FROM TESTING. 


THOSE THAT DON'T ARE IMMEDIATELY 


I « 

)X 


THIS SECTION 'AUTO DROP’ IS NOT USED 
DURING THIS PROGRAM 

i 

BGNAUTO; 

RETURN; 


1636 


BSKEL3 

REV B PATCH 00 AUTODROP SECTION 
; 1656 ENDAUTO; 


H 3 

18-Mar-1982 16:07:45 
18-Mar-1982 15:44:21 


TOPS-20 Bliss-16 V2i212) 

PA : <NEALE>PMSKL3.BLI . 1 (1) 


Page 1 

SEO 0033 


.SBTTL LAUTO AUTODROP SECTION 

000254 000207 LAUTO: RTS PC ; 1638 

; Routine Size: 1 word 

; Maximum stack depth per invocation: 0 words 


000256 004767 177772 
000262 104461 
000264 000207 


.SBTTL LSAUTO AUTODROP SECTION 
ISAUTO: : JSR PC. LAUTO 

TRAP 61 

RTS PC 


; Routine Size: 4 words 

; Maximum stack depth per invocation: 0 words 


1657 

1658 

1659 XS8TTL 'DROP UNIT SECTION’ 

1660 

C 1661 X< 

C 1662 ! + 

C 1663 THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
C 1664 ! TO NO LONGER BE TESTED. 

C 1665 !- 

1666 >X 

1667 ! THIS SECTION 'DROP UNIT' IS NOT USED 

1668 ! DURING THIS PROGRAM 

1669 ! 

1670 BGNDU; 

1671 RETURN; 

1672 ENDDU; 


000266 000207 LDU: 

; Routine Size: 1 word 

; Maximum stack depth per invocation: 0 words 


.S8TTL LDU DROP UNIT SECTION 
RTS PC 


1655 


1656 


.SBTTL LSDU DROP UNIT SECTION 
JSR PC. LDU 

TRAP 53 

RTS PC 


000270 004767 177772 
000274 104453 
000276 000207 


LSDU: : 


1671 


BSKEL3 

REV B PATCH 00 DROP UNIT SECTION 


18-Mar-1982 16:07:45 
18-Mar-1982 15:44:21 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL3.BLI.1 (1) 


Page i 1 
SEO 0034 


; Routine Size: 4 words 

; Maximum stack depth per invocation: 0 words 


XS8TTL 'ADD UNIT SECTION* 


THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
TO THE TEST CYCLE. 


THIS SECTION 'ADD UNIT* IS NOT USED 
DURING THIS PROGRAM 


BGNAU; 

RETURN; 

ENDAU; 


000300 000207 LAU: 

; Routine Size: 1 word 

; Maximum stack depth per invocation: 0 words 


.SBTTL LAU ADD UNIT SECTION 
RTS PC 


000302 004767 177772 LSAU:: 

000306 104452 
000310 000207 

; Routine Size: 4 words 

; Maximum stark depth per invocation: 0 words 


.S8TTL LSAU ADD UNIT SECTION 
JSR PC, LAU 

TRAP 52 

RTS PC 


1690 

1691 

1692 

1693 END 

1694 ELUDOM 


5 


BSXEL3 

REV 8 PATCH 00 ADD UNIT SECTION 


; Size: 22 code ♦ 251 data words 

; Run Time: 00:04.6 

; Elapsed Time: 00:08.3 
; Memory Used: 30 pages 
; Compilation Complete 


J 3 

18-Mar-19S2 16:07:45 TOPS-20 Bliss-16 V2(212) Page 12 

18-Mar-1982 15:44:21 PA:<NEALE>PMSKL3.BLI.1 (1) SEQ 0035 


BSKE14 



TOPS-20 Bliss-16 V2<212) 
PA:<NEALE>PMSKl4.8LI.1 (1) 


Page i 
SEQ 0036 


K 3 

18-Har-1982 16:07:57 
18-Har-1982 15:44:41 


RESTRICTION OF 6 CHARACTERS PER UNIQUE VARIABLE NAME 




CONSTANT LITERAL DECLARATIONS 
Xsbttl ’CONSTANT LITERAL DECLARATIONS’ 

i 

! CONSTANT LITERAL DECLARATIONS 


Literal 

I 

! Mass bus transfer codes 

I 

func 1 = XO’ 000001’. 

FUNC 2 = Xo’000011’. 

FUNC~3 = Xo' 000031 ’ . 

FUNC 4 = Xo’ 000051 ’ , 

FUNC 5 = Xo' 000061'. 

FUNC.6 = Xo’000071 ' , 

DATA CONSTANTS 

I 

ONES = Xo’ 177777’. 

ONE = Xo '000001' 

ZEROES = Xo’ 000000'. 

ZERO = Xo’ 000000'. 

! REGISTER ACCESS OFFSET INDEXES 



ERROR NUMBER CONSTANTS 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>PMSKL4.8LI.1 <2) 


L 3 

18-Mar- 1982 16:07:57 
18-Mar- 1982 15:44:41 



!Noop function 
JDrive clear function 
JSearch function 
JWrite check function 
JWrite function 
!Read function 


.'All ones data field 
JSingle one data field 
!All zeroes data field 
!Zero data field 


JML.ADDR ♦ XO’O' CONTROL AND STATUS REGISTER 1 

JML.ADDR ♦ X0’2' WORD COUNT REGISTER 

JML.ADDR ♦ X0*4' UNIBUS ADDRESS REGISTER 

JML.ADDR ♦ X0*6* DESIRED ADDRESS REGISTER 

JML ADDR ♦ XO'IO’ CONTROL AND STATUS REGISTER 2 

JML.ADDR ♦ XO’12* DRIVE STATUS REGISTER 

JML.ADDR ♦ XO'14' ERROR REGISTER 

!ML>DDR ♦ X0'16' ATTENTION SUMMARY REGISTER 

JML.ADDR ♦ XO'20’ LOOK AHEAD REGISTER 

JML ADDR * X0*20* PROM ADDRESS REGISTER 

!ML>DDR ♦ XO'22* DATA BUFFER REGISTER 

JML.ADDR ♦ XO'24’ MAINTENANCE REGISTER 

JML ADDR ♦ XO*26' DRIVE TYPE REGISTER 

JML.ADDR ♦ X0'30' SERIAL NUMBER REGISTER 

JML.ADDR ♦ XO'32' ECC CRC WORD REGISTER 1 

JML ADDR + XO'34* ECC CRC WORD REGISTER 2 

JML ADDR ♦ X0’36’ DATA DIAGNOSTIC REGISTER 1 

JML ADDR ♦ XO‘40' DATA DIAGNOSTIC REGISTER 2 

!ML>DDR ♦ X0'42' ECC ERROR REGISTER 

JML ADDR ♦ X0'44' ECC ERROR LOCATION REGISTER 

JML ADDR ♦ X0’46' PROM DATA REGISTER 

JML ADDR ♦ X0'50' BUS ADDRESS E52TENSION REGISTER 

JML ADDR ♦ XO’52' CONTROL AND STATUS REGISTER 3 


! **** ERROR LOCATION **** 


BSKEL4 

REV B PATCH 00 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 
1611 
1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 
1621 
1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 


CONSTANT LITERAL DECLARATIONS 


M 3 

18-Har-1982 16:07:57 TOPS-20 Bliss-16 V2(2i2) Page 3 

18-Nar-1982 15:44:41 PA:<NEALE>PMSKL4.BLI.1 (2) SEQ 0038 


ERR 1 =1. 
ERR”2 = 2. 
ERR 3=3. 
ERR 4=4. 
ERR'5 = 5. 
ERR 6=6. 
ERR 7=7. 
ERR'8 = 8, 
ERR”9 = 9, 
ERR'10 = 10. 
ERR’11 =11. 
ERR’12 = 12. 
ERR 13 = 13. 


!Init code section 
!In1t code section 
!Init code section 
!Pm this. bank routine 
! In'error.map routine 
!In error map routine 
fln.blast tbl routine 
!Ver blast routine 
!Init code section 
!Bl proms routine 
! Ver.error.mask routine 
IVer.error mask routine 
!Mass bus transfer routine 


DESIRED SECTOR ADDRESS FIELD SELECT CONSTANT VALUES 


bnkSsel size = 2. IBank select size expression 

ARRSSELlSIZE = 4. ! Array select size expression 


FLAG REGISTER SELECTION DEFINITION 


f.flg.err = 0, 

F UNC ERR FLG = 1. 

F“ERR MAP'ENTERED = 2. 

F BLST TBC ENTERED = 3. 
f”all Bad Chip = 4. 
f ranB data = 5. 

F 'ABORT ARRAY = 6, 
FlD.CUC.TIME.OUT = 7. 

BOOLEAN VALUES 


TRUE = 1. 
FALSE = 0. 


CRC DATA BIT DEFINITIONS 

CRC.P = 36. 

CRC.A = 37. 

CRC.B = 38, 

CRC.NIB8LE = 9, 

DELAY MACRO DELAY VARIABLES 

one us = 1, 

FIFTY MS = 100, 

TEN.MS = 10000. 

MISCELLANIOUS CONSTANTS 


mllla = 1. 
SET.FLG = 1, 


! Genera l purpose error fig 
! Indicates an uncorrectable error was detected 
! Indicates that the error map has an entry 
! Indicates that the blast table was entered 
! Indicates that this bank has one all bad chip >14 row or col bad 
! Indicates that random data pattern is presently used 
! Indicates that further testing of this array is to be aborted 
! Indicates that the data clock bit is hung high 


fLogical true indicator 
iLogical false indicator 


!Ecc crc chip 36 
! Ecc crc chip 37 
!Ecc crc chip 38 
! Ecc crc nibble nine 


'delay for one micro second 
! Delay for 50 milli seconds 
! Delay for 10 milli seconds 


!ML11A is a 16k mos ram array 
! Constant to set a flag 


BSKEL^ 

REV B PATCH 00 CONSTANT LITERAL DECLARATIONS 

; 1637 CLR FLG = 0. 

; 1638 enaBE =1. 

; 1639 DISABE = 0; 


N 3 
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! Constant to set a flag 
[Enable mlmr register function 
[Disable mlmr register function 
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! Select failing row number position 
iSelect failing column position 
! Select both row and column position 


!Set when this chip has additional failing row/col 

.'This chip fails zeroes pattern 

! This chip fails ones pattern 

!Thfs chip fails random pat 1 

! This chip fails random pat 2 

! This chip fails random pat 3 

! This chip fails random pat 4 

!This chip fails random pat 5 

! This chip fails random data 6 

! This chip fails random data 7 

! This chip fails random data 8 

! This ilip fails random data 9 

.'This chip fails random data 10 

! This chip fails random data 11 

! This chip fails random data 12 

•This chip fails random data 13 

! Select all failing patterns 

! Select all bits in byte 


iDefines bit 0 of write buffer 

! Defines biv 1 

iDefines bit 2 

.'Defines bit 3 

iDefines bit 4 

iDefines bit 5 

iDefines bit 6 

.'Defines bit 7 


BSKEL4 


REV B PATCH 00 

FIELD 

DECLARATIONS 

1693 


BIT 8 = C8. 1. 03. 

1694 


BIT 9 = [9. 1. 03. 

1695 


Birio = do, 1, 63. 

1696 


Biril = [11, 1, 03. 

1697 


BIT.12 = [12. 1. 03. 

1698 


BITJ3 = [13. 1. 03, 

1699 


BI04 = [14, 1, 03. 

1700 


BIT“15 = [15. 1- 03, 

1701 


WRD = [0. 16. 03 

1702 


tes. 

1703 

» 


1704 

i 

TEMPORARY BLAST TABLE STRUCTURE MAP 

1705 

i 


1706 

MAP TMP BIST TBL = 

1707 


set 

1708 


NIB_.NO = CO, 4, 03, 

1709 


R C.NO = C4, 8- 03, 

1710 


RC= [15. 1. 63 

1711 


tes. 

1712 

1 


1713 

i 

RH / ML-11 REGISTER ACCESSING STRUCTRUE 

1714 

j 


1715 

MAP_ML11 REG = 

1716 


set 

1717 


i 

1718 


» MLCS1 CONTROL STAUTS REGISTER 1 

1719 


i 

1720 


sc = C15. 1. 03. 

1721 


TRE = C14. 1. 03. 

1722 


MCPE = C13, 1, 03, 

1723 


DVA = [11. 1, 03. 

1724 


RDY = [7, 1, 03, 

1725 


IE = C6, 1. 03. 

1726 


GO * CO. 1. 03. 

1727 


FUNC = [0. 6, 63. 

1728 


i 

1729 


I MLUC WORD COUNT REGISTER 

1730 


i 

1731 


wc_reg = CO, 16, 03, 

1732 



1733 


j MLBA UNIBUS ADDRESS REGISTER 

1734 


1 

1735 


BA.REG = CO, 16, 03. 

1736 



1737 


I ML DA DESIRED ADDRESS REGISTER 

1738 


i 

1739 


da reg = CO, 16. 03, 

1740 



1741 


I MLCS2 CONTROL AND STATUS REGISTER 2 

1742 


i 

1743 


DLT = [15, 1, 03, 

1744 


WCE = C14, 1. 03. 
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IDefines bit 8 

IDefines bit 9 " 

'Defines bit 10 

iDefines bit 11 

[Defines bit 12 

IDefines bit 13 

IDefines bit 14 

IDefines bit 15 

IDefines word of the write buffer 


IDefines failing chips nibble position 
IDefines chips failing row or column 
I Set = row address, clr = column address 


MAP 


I Special condition 
! Transfer error 
IBus parity error 
IDrive available 
I Drive ready 
I Interrupt enable 
IFuntion go bit 
IFuntion code 


I Word count register 


lUnibus address register 


.'desired sector register 


IData late 
I Write check error 


f 


BSKE14 
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1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 
179i 

1794 

1795 

1796 


PE = C 3, 1. 03. 

NED = [12. 1. 03. 

NEM = [11. 1. 03. 

PGE = [10. 1. 03. 

MXF = [9 X 1. 03. 

MDPE = [8. 1. 03. 

ORDY = [7. 1. 03. 

IRDY = [6, 1. 03. 

CLR -- [5, 1. 03. 

PAT = [4, 03. 

BAI = [3. 1. 03. 

DRV SEL = [0. 3, 03, 

• 

! MLDS DRIVE STATUS REGISTER 


ATTN = [15, 1, 03. 

COMP ERR = [14. 1. 03. 
MOL = [12, 1, 03. 

LBT = [10, 1, 03, 

DPR = [8. 1. 03. 

DRY = [7. 1. 03. 

VV = [6. 1. 03, 


MLER ERROR REGISTER 


DCK = [15, 1. 03. 

UNS = [14, 1, 03, 

OPI = [13, 1, 03, 

IAE = [10, 1. 03. 

AOE = [9, 1. 03, 

ECH ERR = C6, 1, 03, 

DPAfi = [5, 1 , 05 , 

CPAR =[3.1, 03. 

RMR = [2, 1, 03. 

ILR = [1. 1. 03, 

ILF = [0, 1, 03. 

t 

i MLAS ATTENTION SUMMARY REGISTER 

i 

attn.reg = [0, 16, 03, 
j MLPA PROM ADDRESS REGISTER 

I 

PA.REG = [0, 16, 03, 

! MLMR MAINTENANCE REGISTER 

i 

SIZING = [11, 5, 03, 

TRT = [8, 2, 03. 

ARR TYP = [10, 1, 03, 

REF “MAR = [7. 1, 03. 

P RD = [6, 1, 03. 
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lUnlbus parity error 
!Non-ex1stent drive 
! Non-existent memory 
! Program error 
!M1ssed tranfer 

IMassbus data bus parity error 
! Output ready 
! Input ready 
! Controller clear 
.'Parity test 

iUnlbus address increment inhibit 
!Unit select 


! At tent ion active 
! Error summary 
IMedium on line 
!Last block 
! Drive present 
! Drive ready 
! Volume valid 


!Data check 
IDrive unsafe 
lOperation incomplete 
! Invalid address error 
{Address overflow error 
JEcc hard error 
{Data parity error 
•Control parity error 
.'Register mod er fused error 
{Illegal register error 
{Illegal function 
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18-Har-1982 15:44:41 PA:<NEALE>PNSKL4.BLI.1 (3) 

1849 

B 15 = [15, 1. 03. 

'.Data bit 15 

1850 

D01.REG = CO. 16, 03. 

!Data diag register 1 

1851 



1852 

! NLD2 DATA DIAGNOSTIC REGISTER 2 


1853 

1 


1854 

B.16 = [0, 15. 03, 

!Data bit 16 

1855 

BI17 * Cl. 1. 03. 

!Data bit 17 

1856 

B 18 = C2. 1, 03. 

IData bit 18 

1857 

BI19 = [3. 1. 03. 

!Data bit 19 

1858 

B 20 = [4, 1. 03. 

IData bit 20 

1859 

BI21 = C5. 1. 03. 

IData bit 21 

1860 

Bl 22 = C6. 1. 03, 

IData b^t 22 

1861 

B 23 = <7. 1. 03, 

IData bit 23 

1862 

B 24 = C8. 1, 03. 

IData bit 24 

1863 

8 25 = [9. 1. 03. 

IData bit 25 

1864 

B'26 = CIO. 1. 03, 

IData bit 26 

1865 

Bl 27 r [11. 1, 03. 

IData bit 2/ 

1866 

B 28 = [12. 1. 03. 

IData bit 28 

1867 

B 29 = [13. 1. 03. 

IData bit 29 

1868 

B 30 = [14, 1. 03. 

IData bit 30 

1869 

d 31 = [15. 1. 03. 

IData bit 31 

1870 

DB2.REG = CO. 16, 03. 

IData diag register 2 

1871 



1872 

1 Q7T 

I NLEE ECC ERROR REGISTER 

| 


lOf J 

1874 

UNC = [15. 1, 03. 

lUncorrectable error 

1875 

SGL = [14. 1. 03, 

1 Single error 

1876 

ere = [13, 1, 03, 

ICrc error 

1877 

CHAN = [6. 6, 03. 

! Channel in error 

1878 

E.Bit = [0, 6, 03. 

! Error function 

1879 



1880 

1 NLEL ECC ERROR LOCATION REGISTER 


1881 

1 


1882 

EL.REG = [0. 16, 03. 

lError location register 

1883 



1884 

1 OOC 

1 HLPD PR ON DATA REGISTER 

1 


1555 

1886 

PD.REG = [0, 16. 03, 

IProN data register 

1887 



1888 

1 flflO 

! NLBAE BUS ADDRESS EXTENTION REGISTER 
| 


i55y 

1890 

BAE.REG = [0. 16, 03. 

ISus address extention register 

1891 



1892 

! HLCS3 CONTROL AND STATUS REGISTER 3 
| 


I5Vj 

1894 

CS3 REG = [0. 16, 03. 

.'Control and status register 3 

1895 

1 


1896 

! m. ALL ACCESS ALL BITS IN SELECTED REGISTER 

1897 

1 


1898 

HL.ALL = [0, 16, 03 

! Access all register bits 

1899 

tes. 


1900 

i 
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REV B PATCH 00 


1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 


1914 


FIELD DECLARATIONS 

! Ver c*mlcb prom maintenance error 
! log table error log table map 


PM.MAP = 
set 

BNK*_PM = CO. 0. 2. 03. 
BRD*_PM = CO. 2. 4. 03. 
BIT* PM = CO. 6. 7. 03 
UNIT* PM = CO. 13. 3. 03. 
SUM* PM = Cl. 0. 16. 03. 
WRD*I0 = CO. 0. 16. 03. 
WRD*.1 = Cl. 0. 16. 03 
tes; 



Page 
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;3 


>38 


.55 


BSKEL4 
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1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 


H 4 
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Xsbttl ‘STRUCTURE DECLARATIONS' 

I 

! STRUCTURE DECLARATIONS 


structure 

i 

i HL-11 register accessing structure 

! this structure allows ML— 1 1 register 
! accessing to be transportable between 
! the PDP-11 and VAX diagnostic supervisors 

i 

! <BLF /NOFORMA T> 


RH CO. P. S. E 1 = 
begin 


local 


ML.REG 

ML REG = . 
ML REG 
end <P. S, 


(RH ♦ Xupval*0) <0. Xbpval. 
E>; 


0 >; 


!<BLF/FORMAT> 


TOPS-20 Bliss-16 V2(212) 
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Page 

SEQ 


>56 


>71 
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1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 


EXTERNAL DECLARATIONS 
Xsbttl 'EXTERNAL DECLARATIONS' 
! EXTERNAL DECLARATIONS 


external routine 
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SEQ 0047 


! Random number generator routine written in macro source code 
RANGE N : novalue; 


external 


Random number generator routine seed variables 


SEED1 , 

SEED2, 

SEED3. 

RANDAT. 

I 

! Diagnostic supervisor global variables 
LSUNIT; 


! First word of random number buffer 
! Second word of random number buffer 
.'Third word of random number buffer 
iLinkage which random nimbers are returned 


'.Supervisor storage of units selected 
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1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 
2001 
2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 
2011 
2012 

2013 

2014 

2015 

2016 
2017 
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Xsbttl 'OWN STORAGE DECl 'RATIONS' 

i 

! Own storage declarations 


own 

I 

I VER CZMLCB added these storage structures to this version 
! Prom Maintenance error summary report structures 

I 

PM COUNT, ! Counts number of bad chips found 

PM~L0G : blockvector [128, 2, wordJ field (PM.MAP), 

I Error map interigation structures 

COL CNT TBL : vector £256, byte3 volatile, IColumn count table 

REM'TBL": block C100J field (MAP REM TBL) volatile. IRemainder table 

COPIED REM TBL : block [1003 field (Aap.REM.TBL) volatile, .'Copied remainder table 

COL.PTh : vector CIO, byte! volatile, IColumn count table pointer 

I I/O buffers 
» 

j VER CZMLCB changed 128 to 256 

WRT 8UF : block [(256 ♦ 511*2)3 field (MAP.URT.BUF) volatile, IWrite buffer 

RD BUF : vector [2563 volatile, IRead buffer 

i 

I Failing row and sector storage structure 

ERROR MAP : blockvector [512, 83 volatile, ‘Error map of failing rows and sectors 

i 

; Failing chips and pattern storage structure 

CHIP. TBL : block [393 field (MAP.CHIP.TBL) volatile. IFailing chip table 

I Row 8 col blast information storage structure 

TMP.BLST TBL : block [103 field (MAP.TMP.BLST TBL) volatile, .'Temporary blast table 

BLAST TBt : blockvector [4, 5123 volatile, iXctual blast table 

COL BXSE, IColumn adrs base index into blast table 

I ~ 

I ML-11 accessing structure reference 

ML.ADDR : ref RH field (MAP.ML11.RE 6) volatile, IRh base register address 
I Init code global variab'es 

MAX CHIP COL, I Number of columns per mos ram 

ML BUT : volatile, IMl-11 divice under test 

ARBSBNX SEL : volatile, .'Fabricated desired sector adrs where array maint is performed 

TSTED BtiK : volatile, I Count of how many banks to array maint 


BSKEL4 
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6 



INC BNK : volatile, 

INC ARR : volatile, 

ARR SEL POS : volatile. 

BNK'SEL POS : volatile. 

BNK^NUM.SEC ; volatile. 

! Program lag registers 

BAD BNK REG : bitvector C8J volatile, 
FLG"REG“: bitvector t 1 63 volatile. 

DE GRADE .MOD.REG : bitvector C83 volatile, 

! Miscellaneous variables 

i 

SIZE : volatile, 

DST : volatile. 

SRC : volatile, 

LST TSTED.ARR : volatile. 

RAN5.PASS : volatile; 


! Supervisor global equates 
EQUALS; 


T0PS-20 Bliss-16 V2<212) 
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IBank adrs Increment value 
lArray adrs increment value 
IField select position expression 
IField select position expression 

! Indicates number of sectors per bank. 16k = 128, 64k = 256 


! Indicates if bank has new errors 
{General flag register 
IDegrade array mode flag register 


! Transfers word count size 
{Transfers destination address 
{Transfers source address 


{Last array module number in ml-H system 
{Random data pass variable 


BSKEL4 
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2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 
2061 
2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 


Xsbttl ‘BIND DECLARATIONS* 

I 

! Bind declarations 


VER CZMLB8 newly defined messages to print out statisical 
prom maintenance messages. 


FMT16 = uplit (Xasciz’XNXDIXA(D) XD2XAID) XDIXA(D) XD2XACD 
PMSHEADER = uplit (Xasciz 'UNIT #: ARRAY #: BANK #: BIT M: COUN 

PM HEADER = uplit (Xasciz'PROM MAINTENANCE PERFORMANCE SUMMARY REPORT*) , 
PM‘14 MSG = uplit (Xasciz'NO ADDITIONAL ERRORS DETECTED WITHIN THIS UNIT* 
PM iO”MSG = uplit (Xasciz'XNXA THE FOLLOWING LISTS AN ACCUML 

PM~1 1” MSG = uplit (Xasciz'XNXA FAILING ROWS AND COLUMNS DEI 

PM‘12"MSG = uplit (Xasciz'XNXA HOWEVER THIS LIST DOES NOT NE 

PM313>SG = uplit (Xasciz'XNXA FAILING ROWS OR COLUMNS BLAST 

! Error and run time messages 

111 CMD MSG = uplit (Xasciz' ILLEGAL PROM MAINTENANCE PROGRAM COMMAND '), 
BGN"MSG‘= uplit (Xasciz'STARTING PROM MAINTENANCE'). 

START MSG = uplit (Xasciz'TYPE START TO EXECUTE PROGRAM'). „ 

HQ ERR MSG = uplit (Xasciz 'HARDWARE QUESTIONS NOT ANSWERED CORRECTLY '), 
HQ~MSG“= uplit (Xasciz'8LASTING SYSTEM. ARRAY OR BANK NOT SELECTED '). 


it (Xasciz 'XNXDIXA(D) XD2XA(D) XDIXA(D) XD2XA(D) XD6XA(D)'), 

uplit (Xasciz 'UNIT »: ARRAY »: BANK #: BIT »: COUNT #:'), 

uplit (Xasciz'PROM MAINTENANCE PERFORMANCE SUMMARY REPORT'), 
uplit (Xasciz'NO ADDITIONAL ERRORS DETECTED WITHIN THIS UNIT'). 

uplit (Xasciz'XNXA THE FOLLOWING LISTS AN ACCUMLATIVE COUNT OF PREVIOUSLY AND NEWLY*), 

uplit (Xasciz'XNXA FAILING ROWS AND COLUMNS DETECTED WITHIN EACH ERRORING CHIP.*), 

uplit (Xasciz'XNXA HOWEVER THIS LIST DOES NOT NECESSARILY INDICATE THE NUMBER OF NEWLY* 

uplit (Xasciz'XNXA FAILING ROWS OR COLUMNS BLASTEDXN') , 


XD2XA(D) XD6XA(D) ’ ) . 

COUNT #:'). 


IED FAILING CHIP'). 

UNIT SELECTED FOR PROM MAINT'), 

EXCEPT UNIT 0 WILL BE IGNORED'), 
SOFTWARE BUG DETECTED NOTIFY DIAG ENG'), 


X RSG = uplit (Xasciz"), 

j" 

i Printing formats 


BSKEL4 
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; 2094 

; 2095 

2096 

209 7 

2098 

2099 

2100 

; 2101 

; 2102 

2103 

2104 

2105 

2106 

; 2107 

2108 

; 2109 

2110 

; 2111 

2112 
2113 

; 2114 

2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 
2123 

; 2124 

2125 

2126 

2127 

2128 

; 2129 

; 2130 


BIND DECLARATIONS 

ONE MSG = uplit (Xasciz’XTXN'). 

TWO MSG = uplit (Xasciz'XTXTXN 1 ), 

THREE MSG = uplit (Xasciz'XTXTXTXN') . 
FOUR ASG = uplit (Zasc iz'XTXTXTXTXN') , 
CRLF"= uplit (Zasciz'ZN 1 ) . 

L F = uplit (Zasciz'ZN'), 

LFS = uplit (Zasciz'ZNZN'), 

0.1 .PRINT = uplit (Zasciz'ZTZOIZN'). 


18-Har-1982 16:07:57 
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! PRINT ONE MESSAGE 
! PRINT TWO MESSAGES 
! PRINT THREE MESAGES 
! PRINT FOUR MESSAGES 
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LF = uplit (Zasciz'ZN'), ! PRINT A LINE FEED <CR> 

LFS = uplit (Zasciz'ZNZN*), ! PRINT TWO <CR> 

0 1 PRINT = uplit (Zasciz’ZTZOIZN'). ! PRINT OCTAL DIGIT AND A MESSAGE 

0‘6>RINT = uplit (Zasciz'ZTZ06ZN'), ! PRINT SIX OCTAL DIGITS AND A MESSAGE 

D”2”PRINT = uplit (Zasciz'ZTZD2ZN'), ! PRINT A TWO DIGIT NUMBER AND A MESSAGE 

DRv’SEL PRINT = uplit (Zasciz'ZADRIVE Z01ZA SELECTEDZN*) . 

“ ” ! PRINT THE DRIVE SELECTED NUMBER TO THE OPERATOR 

ARR SEL PRINT = uplit (Zasc iz’XSXSXSXSXSXSXSXSXATESTING ARRAY ZD2ZN'), 

* ’ ! PRINT THE ARRAY SELECTED TO THE OPERATOR 

BNK SEL PRINT = uplit (Zasciz'ZSZSZSZSZSZSZSZSZSZSZSZSZSZSZSZSZABANKZSZSZSZDIZN') , 

* " ! PRINT THE BANK PRESENTLY UNDER TEST TO THE OPERATOR 


RPP'PRINT = uplit (Xasciz'XAREPLACE ARRAY M0DULEZSZD2ZSZSZA0R RERUN PROGRAMXN ' ) , 

A B'PRINT = uplit (Zasc iz'XAARRAYXSXD2XSXA8ANKXSX01XN* ) , 

CSTPRINT = uplit (Zasciz'ZSZSZSZSZAMLCS1ZSZSZSZSZSZSZSZSZSZSZSZSZSZSZSZSZ06ZN'), 


CS? PRINT = Uplit (Zasc1z'ZSZSZSZSZAMLCS2ZSZSZSZSZSZ$ZSZSZSZSZSZSZSZSZSZSZ06ZN') 
DS PRINT = uplit (Zasciz'ZSZSZSZSZAMLDSZSZSZSZSZSZSZSZSZSZSZSZSZSZSZSZSZ06ZN'), 
ER’PRINT = Uplit ( Zasc i z ' XSXSXSXSXAMLERXSXSXSXSXSXSXSXSXSXSXSXSZSX5ZSXSZ06ZN' ) , 
AS"PRINT = uplit (Zasc iz ' ZSZSZSZSZAMLASZSZSZSZSZSZSZSZSZSZSZSZSZSZSZSZSZ06ZN' ) , 
MR'PRINT = uplit ( Zasc i z ' XSXSXSXSXAMLMRXSXSXSXSXSXSXSXSXSXSXSXSXSXSXSZSZ06ZN' ) , 
DT”PRINT = uplit (Zasc i z ' ZSZSXSZSXAMLDTZSZSXSZSZSXSZSZSZSZSZSZSXSZSZSZSZ06ZN' ) , 
SN’PRINT = uplit ( Zasc i z 1 XSXSXSXSXAMLSNZSXSXSXSXSXSXSXSXSZSZSZSXSXSXSZSX06XN ' ) , 
EE’PRINT * uplit (Zasciz'XSXSZSZSZAMLEEZSZSZSZSZSXSZSZSZSZSZSZSZSZSZSXSZOGZN'), 
EL'PRJNT = uplit (Zasciz'ZSZSZSZSZAMLELZSZSXSZSZSZSZSXSZSZSZSZSXSZSZSZSZ06ZN'), 
HEADER PRINT = uplit (Zasciz'ZSZSXSZSZSZSXSXSXSXSZAREGISTER DUMPZNZN'), 

COL DESC PRINT S uplit (Xasciz'XSXSZAREGISTER NAMEZSZSZSZSZSZSZACONTENTSZN') , 
X.pRINT = uplit (Zasciz"); 
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2151 
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2165 
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2179 
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MACRO DECLARATIONS 


N 4 

18-Mar-1982 16:07:57 TOPS-20 Bliss-16 V21212) 

18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.BLI . 1 (8) 


Xsbttl ‘MACRO DECLARATIONS’ 

i 

! Macro declarations 


macro 

I 

I ML-LL register accessing macro 

I this macro allows ml-11 register accessing to be 
! transportable between the PDP-11 and VAX diagnostic 
! supervisors. 

WRT RH (0. FIELDNAM. IMAGE) = 
begin 

local 

MLREG; 


ML REG = .ML ADDR CO. ML ALL3; 

MLREGct f i e iSexpand <FIECDNAM)> = IMAGE; 
( .ML ADDR + Xupval*0) = .MLREG; 
end;*. 

Clear rh and mass bus devices 


CLR M8US = 

URT RH 7MLCS2. CLR. ONE); .'Clear the mass bus 
WRT RH (MLCS2. DRV.SEL, .ML_DUT);X, 

i “ 

! Clear mass bus devices 

i 

CLR DRIVE = 

WRT.RH TMLCS1 , FUNC. FUNC_2);X. 


{Restore the drive select number 


! Clear the drive 


! Maintanence register diag mode setting macros 


RD.PROM.MODE = 

WRT RH7MLMR7MR REG.PMJ1D_M0DE);X, 
WRT PROM MODE = 

WRT RH(«LMR,Jta REG,PM_WRT_MODE);X 
DAT DM (X) = 

WRT RH TMLMR.D DM. X);X. 

ECC DIS (X7 = 

WRT.RH TMLMR.E DIS. X);X. 

PROM RW (X7 = 

WRT RH (MLMR.P.RW, X);X. 

DATCLK = 

WRT RH TMLMR.D CLK. 0NE);X. 

PROM DIS (X) = 

WRT.RH («LMR,P.DIS. X);X. 

DCX.EN (X) = 


! Enable prom reads 

{Enable prom writes 

{Enable/disable data diag mode 

{Enable/disable ecc disable mode 

{Enable prom read write 

{Data clock 

{Enable prom disable 
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2183 
M 2184 

2185 

2186 

2187 

2188 
M 2189 

2190 
M 2191 
2192 
M 2193 

2194 

2195 


WRT RH (MLMR.D EN, 
’ECC DM (X) = 

WRT RH TMLMR.E.DM. 
i _ 

Miscellaneous 


PM RD MODE -- 
Xo’000040 T *, 

PM WRT MODE = 
Xo’000T40'X, 

FULL WRD = 

0. 16. OX; 


X);X. 

X);X. 

macros definitions 
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{Enable data check enable 

!Enable ecc disable 

{Enable prom read mode 

.'Enable prom write mode 

{Selects full word of data element 
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2201 
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2205 


EXTENDED MESSAGE PRINTING SECTION 
Xsbttl ’EXTENDED MESSAGE PRINTING SECTION’ 


C 5 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 


♦♦ 


Functional description: register dump 

This bgnmsg will get called when the 
drive detects errors during a mass 
bus transfer, this bgnmsg will print 
out to the terminal the error registers. 


• 

2206 

BGNMSG 

(DUMPER); 









.TITLE 

8SKEL4 






.IDENT 

/REV B / 

000000 





.PSECT 

SPLITS. 

000000 

045 

116 

045 

P.AAA: 

.ASCII 

/XNX/ 

000003 

104 

061 

045 


.ASCII 

/D1X/ 

000006 

101 

050 

104 


.ASCII 

/A(D/ 

000011 

051 

040 

040 


.ASCII 

/) / 

000014 

040 

040 

040 


.ASCII 

/ / 

000017 

040 

045 

104 


.ASCII 

/ XD/ 

000022 

062 

045 

101 


.ASCII 

/2XA/ 

000025 

050 

104 

051 


.ASCII 

/(D)/ 

000030 

040 

040 

040 


.ASCII 

/ / 

000033 

040 

040 

040 


.ASCII 

/ / 

000036 

045 

104 

061 


.ASCII 

/XD1/ 

000041 

045 

101 

050 


.ASCII 

/XA(/ 

000044 

104 

051 

040 


.ASCII 

/D) / 

000047 

040 

040 

040 


.ASCII 

/ / 

000052 

040 

040 

045 


.ASCII 

/ X/ 

000055 

104 

06 2 

045 


.ASCII 

/D2X/ 

000060 

101 

050 

104 


.ASCII 

/A(D/ 

000063 

051 

040 

040 


.ASCII 

/) / 

000066 

040 

040 

040 


.ASCII 

/ / 

000071 

040 

040 

045 


.ASCII 

/ X/ 

000074 

104 

066 

045 


.ASCII 

/D6X/ 

000077 

101 

050 

104 


.ASCII 

/A(D/ 

000102 

051 

000 



.ASCII 

/>/<00> 

000104 

125 

116 

111 

P.AA8: 

.ASCII 

/UN 1/ 

000107 

124 

040 

043 


.ASCII 

/T #/ 

000112 

072 

040 

040 


.ASCII 

/: / 

000115 

040 

101 

122 


.ASCII 

/ AR/ 

000120 

122 

101 

131 


.ASCII 

/RAV/ 

000123 

040 

043 

072 


.ASCII 

/ #:/ 

000126 

040 

040 

040 


.ASCII 

/ / 

000131 

102 

101 

116 


.ASCII 

/BAN/ 

000134 

113 

040 

043 


.ASCII 

/K #/ 

000137 

072 

040 

040 


.ASCII 

/: / 

000142 

040 

102 

111 


.ASCII 

/ 81/ 
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BSKEL4 


REV B I 

°ATCH 00 

EXTENDED 

MESSAGE 

PRINTING SECTION 

000145 

124 

040 

043 


.ASCII 

000150 

072 

040 

040 


.ASCII 

000153 

040 

040 

C40 


.ASCII 

000156 

040 

103 

117 


.ASCII 

000161 

125 

116 

124 


.ASCII 

000164 

040 

043 

072 


.ASCII 

000167 

000 




.ASCII 

000170 

120 

122 

117 

P.AAC: 

.ASCII 

000173 

115 

040 

115 


.ASCII 

000176 

101 

111 

116 


.ASCII 

000201 

124 

105 

116 


.ASCII 

000204 

101 

116 

103 


.ASCII 

000207 

105 

040 

120 


.ASCII 

000212 

105 

122 

106 


.ASCII 

000215 

117 

122 

115 


.ASCII 

000220 

101 

116 

103 


.ASCII 

000223 

105 

040 

123 


.ASCII 

000226 

125 

115 

115 


.ASCII 

000231 

101 

122 

131 


.ASCII 

000234 

040 

122 

105 


.ASCII 

000237 

120 

117 

122 


.ASCII 

000242 

124 

000 



.A SC1I 

000244 

116 

117 

040 

P.AAD: 

.ASCII 

000247 

101 

104 

104 


.ASCII 

000252 

111 

124 

111 


.ASCII 

000255 

117 

116 

101 


.ASCII 

000260 

114 

040 

105 


.ASCII 

000263 

122 

1 22 

117 


.ASCII 

000266 

122 

123 

040 


.ASCII 

000271 

104 

105 

124 


.ASCII 

000274 

105 

103 

124 


.ASCII 

000277 

105 

104 

040 


.ASCII 

000302 

127 

111 

124 


.ASCII 

000305 

110 

111 

116 


.ASCII 

000310 

040 

124 

110 


.ASCII 

000313 

111 

123 

040 


.ASCII 

000316 

125 

116 

111 


.ASCII 

000321 

124 

000 

000 


.ASCII 

000324 

045 

116 

045 

P.AAE: 

.ASCII 

000327 

101 

Oil 

Oil 


.ASCII 

000332 

124 

110 

105 


.ASCII 

000335 

040 

106 

117 


.ASCII 

000340 

114 

114 

117 


.ASCII 

000343 

127 

111 

116 


.ASCII 

000346 

107 

040 

114 


.ASCII 

000351 

111 

123 

124 


.ASCII 

000354 

123 

040 

101 


.ASCII 

000357 

116 

040 

101 


.ASCII 

000362 

103 

103 

125 


.ASCII 

000365 

115 

114 

101 


.ASCII 

000370 

124 

111 

126 


.ASCII 

000373 

105 

040 

103 


.ASCII 
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/T #/ 

/: / 

/ / 

/ CO/ 

/UNT/ 

/ *:/ 

< 00 > 

/PRO/ 

/« M/ 

/AIN/ 

/TEN/ 

/ANC/ 

/E P/ 

/ERF/ 

/ORH/ 

/ANC/ 

/E $/ 

/um/ 

/ART/ 

/ RE/ 

/POR/ 

/T/<00> 

/NO / 

/ADD/ 

/ITI/ 

/ONA/ 

/L E/ 

/RRO/ 

/RS / 

/OET/ 

/ECT/ 

/EO / 

/WIT/ 

/WIN/ 

/ TH/ 

/IS / 

/UNI/ 

/T/<00x00> 

/XH%/ 

/A/<11><11> 

/THE/ 

/ FO/ 

/LIO/ 

/WIN/ 

/G L/ 

/IST/ 

/S A/ 

/N A/ 

/ecu/ 

/HLA/ 

/TIV/ 

/E C/ 
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117 

125 

116 

.ASCII 

/OUN/ 

000401 

124 

040 

117 

.ASCII 

/T 0/ 


106 

040 

120 

.ASCII 

/F P/ 

iWfirM 

122 

105 

126 

.ASCII 

/REV/ 

iVt f 4rH! 

111 

117 

125 

.ASCII 

/IOU/ 

'riVftl 

123 

114 

131 

.ASCII 

/sir/ 


040 

101 

116 

.ASCII 

/ AN/ 

i irTiB 

104 

040 

116 

.ASCII 

/D N/ 

r 1 rTi A| 

105 

127 

114 

.ASCII 

/EWL/ 

ivratl 

131 

000 

000 

.ASCII 

/Y/<00><00> 


045 

116 

045 

P.AAf: .ASCII 

/XHV 

1 • 

'iVfc F I 

101 

011 

011 

.ASCII 

/A/<1 1 ><1 1 > 


106 

101 

111 

.ASCII 

/FAI/ 

iwyf 

114 

111 

116 

.ASCII 

/LIN/ 


107 

040 

040 

.ASCII 

/G / 


122 

117 

127 

.ASCII 

/ROW/ 


123 

040 

101 

.ASCII 

/S A/ 


116 

104 

040 

.ASCII 

/ND / 


103 

117 

114 

.ASCII 

/COL/ 

000467 

125 

115 

116 

.ASCII 

/UMN/ 


123 

040 

104 

.ASCII 

/S D/ 

000475 

105 

124 

105 

.ASCII 

/ETE/ 

Vi'KvB? 

103 

124 

105 

.ASCII 

/CTE/ 


104 

040 

040 

.ASCII 

/D / 

Vrrl !*■ 

127 

111 

124 

.ASCII 

/WIT/ 

riVrf H 

110 

111 

116 

.ASCII 

/HIN/ 

Yi'rf 

040 

105 

101 

.ASCII 

/ EA/ 

Vrrfffl 

103 

110 

040 

.ASCII 

/CH / 

mlrj*: 

040 

105 

122 

.ASCII 

/ ER/ 

*! VrfT«^ 

122 

117 

122 

.ASCII 

/ROR/ 


111 

116 

107 

.ASCII 

/ING/ 

VVrrrfl 

040 

040 

103 

.ASCII 

/ c/ 


110 

111 

120 

.ASCII 

/HIP/ 


056 

000 

000 

.ASCII 

/./<00><00> 

Vi’rffw 

045 

116 

045 

P.AAG: .ASCII 

/XNX/ 


101 

011 

Oil 

.ASCII 

/A/<11x11> 

•VilirM 

110 

117 

127 

.ASCII 

/HOW/ 

Yi'rrrH 

105 

126 

105 

.ASCII 

/EVE/ 

MYrtrP" 

122 

040 

124 

.ASCII 

/R T/ 

tYiLlAMj 

110 

111 

123 

.ASCII 

/HIS/ 

000566 

040 

114 

111 

.ASCII 

/ LI/ 

L 9 !*! 9 ’T4B1? 

123 

124 

040 

.ASCII 

/ST / 

MJ *7 i B 

104 

117 

105 

.ASCII 

/DOE/ 

•Vi ,T ’^K 

123 

040 

116 

.ASCII 

/S N/ 


117 

124 

040 

.ASCII 

/OT / 

iVr.li 

116 

105 

103 

.ASCII 

/NEC/ 

9 Xvl fl 

105 

123 

123 

.ASCII 

/ESS/ 

•Vi.j 

101 

122 

111 

.ASCII 

/ARI/ 

MM .ml 

114 

131 

040 

.ASCII 

/LV / 

VivTil^ 

111 

116 

104 

.ASCII 

/IND/ 

iVr.T/®-? 

111 

103 

101 

.ASCII 

/ICA/ 


124 

105 

040 

.ASCII 

/TE / 
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000632 

124 

110 

105 


.ASCII 

/THE/ 

000635 

040 

116 

125 


.ASCII 

/ NU/ 

000640 

115 

102 

105 


.ASCII 

/MBE/ 

000643 

122 

040 

117 


.ASCII 

/M 0/ 

000646 

106 

040 

116 


• ASCII 

/F N/ 

O'j0651 

105 

127 

114 


.ASCII 

/EUL/ 

w00654 

131 

000 



.ASCII 

/Y/<00> 

000656 

045 

116 

045 

P.AAH: 

.ASCII 

/XNX/ 

000661 

101 

Oil 

Oil 


.ASCII 

/A/<11><11> 

000664 

106 

101 

111 


•ASCII 

/FAI/ 

000667 

114 

111 

116 


.ASCII 

/LIN/ 

000672 

107 

040 

122 


.ASCII 

/G R/ 

000675 

117 

127 

123 


.ASCII 

/OWS/ 

000700 

040 

117 

122 


.ASCII 

/ OR/ 

000703 

040 

103 

117 


.ASCII 

/ CO/ 

000706 

114 

125 

115 


.ASCII 

/LUH/ 

000711 

116 

123 

040 


.ASCII 

/NS / 

000714 

102 

114 

101 


.ASCII 

/BLA/ 

000717 

123 

124 

105 


.ASCII 

/STE/ 

000722 

104 

045 

116 


.ASCII 

/DXN/ 

000725 

000 




.ASCII 

<00> 

000726 

111 

114 

114 

P.AAI : 

.ASCII 

/ILL/ 

000731 

105 

107 

101 


.ASCII 

/EGA/ 

000734 

114 

040 

120 


.ASCII 

/L P/ 

000737 

122 

117 

115 


.ASCII 

/ROM/ 

000742 

040 

115 

101 


.ASCII 

/ KA/ 

000745 

111 

116 

124 


•ASCII 

/INT/ 

000750 

105 

116 

101 


.ASCII 

/ENA/ 

000753 

116 

103 

105 


.ASCII 

/Hi E/ 

000756 

040 

120 

122 


.ASCII 

/ PR/ 

000761 

117 

107 

122 


.ASCII 

/OGR/ 

000764 

101 

115 

040 


.ASCII 

/AM / 

000767 

103 

117 

115 


.ASCII 

/COM/ 

000772 

115 

101 

116 


.ASCII 

/MAN/ 

000775 

104 

040 

000 


.ASCII 

/D /<00> 

001000 

123 

124 

101 

P.AAJ : 

.ASCII 

/STA/ 

001003 

122 

124 

111 


.ASCII 

/RTI/ 

001006 

116 

107 

040 


.ASCII 

/NG / 

001011 

120 

122 

117 


.ASCII 

/PRO/ 

001014 

115 

040 

115 


.ASCII 

/M M/ 

001017 

101 

111 

116 


.ASCII 

/AIN/ 

001022 

124 

105 

116 


.ASCII 

/TEN/ 

001025 

101 

116 

103 


.ASCII 

/ANC/ 

001030 

105 

000 



.ASCII 

/E/<00> 

001032 

124 

131 

120 

P.AAK: 

.ASCII 

/TYP/ 

001035 

105 

040 

123 


.ASCII 

/E S/ 

001040 

124 

101 

122 


.ASCII 

/TAR/ 

001043 

124 

040 

124 


.ASCII 

/T T/ 

001046 

117 

040 

105 


.ASCII 

/O E/ 

001051 

130 

105 

103 


.ASCII 

/XEC/ 

001054 

125 

124 

105 


.ASCII 

/UTE/ 

001057 

040 

120 

122 


.ASCII 

/ PR/ 
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001062 

117 

107 

122 


.ASCII 

/OGR/ 

001065 

101 

115 

000 


.ASCII 

/AM/<00> 

001070 

110 

101 

122 

P.AAl : 

.ASCII 

/HAR/ 

001073 

104 

127 

101 


.ASCII 

/DWA/ 

001076 

122 

105 

040 


.ASCII 

/RE / 

001101 

121 

125 

105 


.ASCII 

/QUE/ 

001104 

123 

124 

111 


• ASCII 

/STI/ 

001107 

117 

116 

123 


.ASCII 

/O NS/ 

001112 

040 

116 

117 


.ASCII 

/ NO/ 

001115 

124 

040 

101 


•ASCII 

/T A/ 

001120 

116 

123 

127 


.ASCII 

/NSW/ 

001123 

105 

122 

105 


.ASCII 

/ERE/ 

001126 

104 

040 

103 


.ASCII 

/D C/ 

001131 

117 

122 

122 


.ASCII 

/ORR/ 

001134 

105 

103 

124 


.ASCII 

/ECT/ 

001137 

114 

131 

040 


.ASCII 

/LY / 

001142 

000 

000 



.ASCII 

<00><00> 

001144 

102 

114 

101 

P.AAM: 

.ASCII 

/eiA/ 

001147 

123 

124 

111 


.ASCII 

/STI/ 

001152 

116 

107 

040 


.ASCII 

/NG / 

001155 

123 

131 

123 


.ASCII 

/SYS/ 

001160 

124 

105 

115 


.ASCII 

/TEM/ 

001163 

054 

040 

101 


.ASCII 

/. A/ 

001166 

122 

122 

101 


.ASCII 

/RRA/ 

001171 

131 

040 

117 


.ASCII 

/Y 0/ 

001174 

122 

040 

102 


.ASCII 

/R 8/ 

001177 

101 

116 

113 


.ASCII 

/ANK/ 

001202 

C'O 

116 

117 


.ASCII 

/ NO/ 

001205 

1 

040 

123 


.ASCII 

/T S/ 

001210 

105 

114 

105 


.ASCII 

/ELE/ 

001213 

103 

124 

105 


.ASCII 

/CTE/ 

001216 

104 

040 

000 


.ASCII 

/D /<00> 

001221 

000 




.ASCII 

<00> 

001222 

120 

122 

117 

P.AAN: 

•ASCII 

/PRO/ 

001225 

115 

040 

115 


.ASCII 

/« H/ 

001230 

101 

111 

116 


.ASCII 

/A IN/ 

001233 

124 

101 

116 


.ASCII 

/TAN/ 

001236 

105 

116 

103 


.ASCII 

/ENC/ 

001241 

105 

040 

103 


.ASCII 

/E C/ 

001244 

117 

115 

120 


.ASCII 

/OMP/ 

001247 

114 

105 

124 


.ASCII 

/LET/ 

001252 

105 

104 

040 


.ASCII 

/ED / 

001255 

000 




.ASCII 

<00> 

001256 

123 

125 

120 

P.AAO: 

.ASCII 

/SUP/ 

001261 

120 

122 

105 


.ASCII 

/PRE/ 

001264 

123 

123 

111 


.ASCII 

/SSI/ 

001267 

116 

107 

040 


.ASCII 

/NG / 

001272 

120 

122 

117 


.ASCII 

/PRO/ 

001275 

107 

122 

101 


.ASCII 

/GRA/ 

001300 

115 

040 

105 


.ASCII 

/M E/ 

001303 

130 

105 

103 


.ASCII 

/XEC/ 

001306 

125 

124 

111 


.ASCII 

/UTI/ 
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001311 

117 

116 

040 


•ASCII 

001 3K 

000 

000 



•ASCII 

001 316 

122 

105 

124 

P.AAP: 

•ASCII 

001321 

125 

122 

116 


•ASCII 

001324 

111 

116 

107 


.ASCII 

001327 

040 

124 

117 


•ASCII 

001332 

040 

10«. 

122 


•ASCII 

001335 

123 

076 

000 


•ASCII 

001 340 

114 

125 

116 

P.AAQ: 

•ASCII 

001343 

040 

060 

040 


•ASCII 

001346 

120 

055 

124 


•ASCII 

001351 

101 

102 

114 


•ASCII 

001354 

105 

040 

116 


•ASCII 

001357 

117 

124 

040 


•ASCII 

001362 

120 

122 

105 


•ASCII 

001365 

123 

105 

116 


•ASCII 

001370 

124 

000 



.ASCII 

001372 

103 

117 

116 

P.AAR: 

.ASCII 

001375 

104 

111 

124 


.ASCII 

001400 

111 

117 

116 


.ASCII 

001403 

040 

101 

000 


.ASCII 

001406 

103 

117 

116 

P.AAS: 

•ASCII 

001411 

104 

111 

124 


.ASCII 

001414 

111 

117 

116 


.ASCII 

001417 

040 

102 

000 


.ASCII 

001422 

103 

117 

116 

P.AAT: 

.ASCII 

001425 

104 

111 

124 


.ASCII 

001430 

111 

117 

116 


.ASCII 

001433 

040 

103 

000 


.ASCII 

001436 

103 

117 

116 

P.AAU: 

.ASCII 

001441 

104 

111 

124 


.ASCII 

001444 

111 

117 

116 


.ASCII 

00! ,47 

040 

104 

040 


.ASCII 

001*52 

000 

000 



.ASCII 

001454 

125 

116 

103 

P.AAV: 

.ASCII 

001457 

117 

116 

106 


.ASCII 

001462 

111 

122 

115 


.ASCII 

001465 

105 

104 

040 


.ASCII 

001470 

106 

101 

111 


.ASCII 

001473 

114 

111 

116 


.ASCII 

001476 

107 

040 

103 


.ASCII 

001501 

110 

111 

120 


.ASCII 

001504 

000 

000 



.ASCII 

001506 

115 

117 

122 

P.AAU: 

.ASCII 

001511 

105 

040 

124 


.ASCII 

001514 

110 

101 

116 


.ASCII 

001517 

040 

117 

116 


.ASCII 

001522 

105 

040 

125 


.ASCII 

001525 

116 

111 

124 


.ASCII 

001530 

040 

123 

105 


.ASCII 

001533 

114 

105 

103 


.ASCII 

001536 

124 

105 

104 


.ASCII 
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001541 

040 

106 

117 


.ASCII 

001544 

122 

040 

120 


.ASCII 

001547 

122 

117 

115 


.ASCII 

001552 

040 

115 

101 


.ASCII 

001555 

111 

116 

124 


.ASCII 

001560 

000 

000 



.ASCII 

001562 

101 

114 

114 

P.AAX: 

.ASCII 

00T565 

040 

125 

116 


.ASCII 

001570 

in 

124 

123 


.ASCII 

001573 

040 

105 

130 


.ASCII 

001576 

103 

105 

120 


.ASCII 

001601 

124 

040 

125 


.ASCII 

001604 

116 

111 

124 


.ASCII 

001607 

040 

060 

040 


.ASCII 

001612 

127 

111 

114 


.ASCII 

001615 

114 

040 

102 


.ASCII 

001620 

105 

040 

111 


.ASCII 

001623 

107 

116 

117 


.ASCII 

001626 

122 

105 

104 


.ASCII 

001631 

oOO 




.ASCII 

001632 

125 

116 

105 

P.AAV: 

.ASCII 

001635 

130 

120 

105 


.ASCII 

001640 

103 

124 

105 


.ASCII 

001643 

104 

040 

123 


.ASCII 

001646 

117 

106 

124 


.ASCII 

001651 

127 

101 

122 


.ASCII 

001654 

105 

040 

102 


.ASCII 

001657 

125 

107 

040 


.ASCII 

001662 

104 

105 

124 


.ASCII 

001665 

105 

103 

124 


.ASCII 

001670 

105 

104 

040 


.ASCII 

001673 

116 

117 

124 


.ASCII 

001676 

111 

106 

131 


.ASCII 

001701 

040 

104 

111 


.ASCII 

001704 

101 

107 

040 


.ASCII 

001707 

105 

116 

107 


.ASCII 

001712 

000 

000 



.ASCII 

001714 

120 

122 

117 

P.AAZ: 

.ASCII 

001717 

115 

04 0 

115 


.ASCII 

001722 

101 

111 

116 


.ASCII 

001725 

124 

101 

116 


.ASCII 

001730 

105 

116 

103 


.ASCII 

001733 

105 

040 

101 


.ASCII 

001736 

102 

117 

122 


.ASCII 

001741 

124 

105 

104 


.ASCII 

001744 

040 

106 

117 


.ASCII 

001747 

1 22 

040 

124 


.ASCII 

001752 

110 

111 

123 


.ASCII 

001755 

040 

101 

122 


.ASCII 

001760 

122 

101 

131 


.ASCII 

001763 

000 




.ASCII 

001764 

116 

117 

040 

P.ABA: 

.ASCII 
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/R P/ 
/ROM/ 

/ HA/ 
/INT/ 
< 00 >< 00 > 
/ALL/ 

/ UN/ 
/ITS/ 

/ EX/ 
/CEP/ 

/T U/ 
/NIT/ 

/ 0 / 
/WIL/ 

/l e/ 

/E 1/ 

/GNO/ 

/RED/ 

< 00 > 

/UNE/ 

/XPE / 

/CTE/ 

/D S/ 
/OFT/ 
/WAR/ 

/E 8/ 

/UG / 
/DET/ 
/ECT/ 

/ED / 
/NOT/ 
/IF// 

/ DI/ 

/AG / 
/ENG/ 
< 00 >< 00 > 
/PRO/ 

/M M/ 
/AIN/ 
/TAN/ 
/ENC/ 

/E A/ 
/80R/ 
/TED/ 

/ FO/ 

/R T/ 
/HIS/ 

/ AR/ 
/RAT/ 
< 00 > 

/NO / 
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001767 

101 

104 

104 


.ASCII 

/ADD/ 

001772 

111 

124 

111 


.ASCII 

/ 1 T I / 

001775 

117 

116 

101 


.ASCII 

/ONA/ 

002000 

114 

040 

105 


.ASCII 

/L E/ 

002003 

122 

122 

117 


.ASCII 

/RRO/ 

002006 

122 

123 

040 


•ASCII 

/RS / 

002011 

102 

114 

101 


.ASCII 

/BLA/ 

002014 

123 

124 

105 


• ASCII 

/STE/ 

002017 

104 

040 

106 


.ASCII 

/D F/ 

002022 

117 

122 

040 


.ASCII 

/OR / 

002025 

124 

110 

111 


.ASCII 

/TH 1/ 

002030 

123 

040 

101 


.ASCII 

/S A/ 

002033 

122 

122 

101 


.ASCII 

/RRA/ 

002036 

131 

000 



.ASCII 

/Y/<00> 

002040 

125 

116 

1C’ 

P.A88: 

.ASCII 

/U HU 

002043 

117 

122 

122 


.ASCII 

/ORR/ 

002046 

105 

103 

124 


.ASCII 

/ECT/ 

002051 

101 

102 

114 


.ASCII 

/ABL/ 

002054 

105 

040 

105 


.ASCII 

/E E/ 

002057 

122 

122 

117 


.ASCII 

/RRO/ 

002062 

122 

123 

040 


.ASCII 

/RS / 

002065 

104 

105 

124 


.ASCII 

/DET/ 

002070 

105 

103 

124 


.ASCII 

/ECT/ 

002073 

105 

104 

040 


.ASCII 

/ED / 

002076 

101 

106 

124 


.ASCII 

/AFT/ 

002101 

105 

122 

040 


.ASCII 

/ER / 

002104 

102 

114 

101 


.ASCII 

/BLA/ 

002107 

123 

124 

111 


•ASCII 

/STI/ 

002112 

116 

107 

000 


.ASCII 

/NG/<00> 

002115 

000 




.ASCII 

<00> 

002116 

104 

101 

124 

P.ABC: 

.ASCII 

/DAT/ 

002121 

101 

040 

103 


.ASCII 

/A C/ 

002124 

114 

117 

103 


.ASCII 

/LOC/ 

002127 

113 

040 

102 


.ASCII 

/K B/ 

002132 

111 

124 

040 


.ASCII 

/IT / 

002135 

106 

101 

111 


.ASCII 

/FAI/ 

002140 

114 

105 

104 


.ASCII 

/LEO/ 

002143 

040 

124 

117 


.ASCII 

/ TO/ 

002146 

040 

122 

105 


.ASCII 

/ RE/ 

002151 

123 

105 

124 


.ASCII 

/SET/ 

002154 

040 

101 

106 


.ASCII 

/ AF/ 

002157 

124 

105 

122 


.ASCII 

/TER/ 

002162 

040 

120 

122 


.ASCII 

/ PR/ 

002165 

117 

115 

040 


.ASCII 

/OK / 

002170 

127 

122 

111 


.ASCII 

/WRI/ 

002173 

124 

105 

000 


.ASCII 

/TE/<00> 

002176 

122 

105 

120 

P.ABD: 

.ASCII 

/REP/ 

002201 

114 

101 

103 


.ASCII 

/LAC/ 

002204 

105 

040 

101 


.ASCII 

/E A/ 

002207 

122 

122 

101 


.ASCII 

/RRA/ 

002212 

131 

040 

104 


.ASCII 

/Y D/ 

002215 

101 

124 

101 


.ASCII 

/ATA/ 
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002220 

040 

115 

117 


.ASCII 

002223 

104 

125 

114 


.ASCII 

002226 

105 

040 

115 


.ASCII 

002231 

067 

063 

066 


.ASCII 

002234 

063 

000 



.ASCII 

002236 

115 

105 

115 

P.A8E : 

.ASCII 

002241 

117 

122 

131 


.ASCII 

002244 

040 

105 

122 


.ASCII 

002247 

122 

117 

122 


.ASCII 

002252 

123 

040 

123 


.ASCII 

002255 

124 

111 

114 


.ASCII 

002260 

114 

040 

105 


.ASCII 

002263 

130 

111 

123 


.ASCII 

002266 

124 

040 

101 


.ASCII 

002271 

106 

124 

105 


•ASCII 

002274 

122 

040 

102 


.ASCII 

002277 

114 

101 

123 


.ASCII 

002302 

124 

111 

116 


.ASCII 

002305 

107 

000 

000 


.ASCII 

002310 

125 

116 

105 

P.A8F: 

.ASCII 

002313 

130 

120 

105 


.ASCII 

002316 

103 

124 

105 


.ASCII 

002321 

104 

040 

104 


.ASCII 

002324 

122 

111 

126 


.ASCII 

002327 

105 

040 

105 


.ASCII 

002332 

122 

122 

117 


.ASCII 

002335 

122 

123 

040 


.ASCII 

002340 

104 

105 

124 


.ASCII 

002343 

105 

103 

124 


.ASCII 

002346 

105 

104 

000 


.ASCII 

002351 

000 




.ASCII 

002352 

117 

103 

103 

P.A8G: 

.ASCII 

002355 

125 

122 

105 


.ASCII 

002360 

104 

040 

104 


.ASCII 

002363 

125 

122 

111 


.ASCII 

002366 

116 

107 

040 


.ASCII 

002371 

101 

040 

115 


.ASCII 

002374 

101 

123 

123 


.ASCII 

002377 

040 

102 

125 


.ASCII 

002402 

123 

040 

1 22 


.ASCII 

002405 

105 

101 

104 


.ASCII 

002410 

040 

124 

122 


.ASCII 

002413 

101 

116 

123 


.ASCII 

002416 

106 

105 

122 


.ASCII 

002421 

000 




.ASCII 

002422 

117 

103 

103 

P.ABH: 

.ASCII 

002425 

125 

122 

105 


.ASCII 

002 4 30 

104 

040 

104 


.ASCII 

002433 

125 

122 

111 


.ASCII 

002436 

116 

107 

040 


•ASCII 

002441 

101 

040 

115 


.ASCII 

002444 

101 

123 

123 


.ASCII 
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/DUl/ 

/E M/ 

/736/ 

/3/<00> 

/MEM/ 

/ORV/ 

/ ER/ 

/ROR/ 

/S S/ 

/TIL/ 

/L E/ 

/XIS/ 

/T A/ 

/FTE/ 

/R B/ 

/LAS/ 

/TIN/ 

/G/<00><00> 

/UNE/ 

/XPE/ 

/CTE/ 

/D D/ 

/R IV/ 

/E E/ 

/RRO/ 

/RS / 

/DET/ 

/ECT/ 

/ED/<00> 

< 00 > 

/OCC/ 

/URE/ 

/D D/ 

/URI/ 

/NG / 

/A M/ 

/ASS/ 

/ BU/ 

/S R/ 

/EAD/ 

/ TR/ 

/ANS/ 

/FER/ 

< 00 > 

/OCC/ 

/URE/ 

/D D/ 

/URI/ 

/NG / 

/A M/ 

/ASS/ 
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002447 

040 

102 

125 


.ASCII 

/ 8U/ 

002452 

123 

040 

127 


.ASCII 

/s y/ 

002455 

122 

111 

124 


.ASCII 

/RIT/ 

002460 

105 

040 

124 


.ASCII 

/E T/ 

002463 

122 

101 

116 


.ASCII 

/RAN/ 

002466 

123 

106 

105 


.ASCII 

/SFE/ 

002471 

122 

000 

000 


.ASCII 

/R/< 00><00> 

002474 

117 

103 

103 

P.ABI: 

.ASCII 

/OCC/ 

C02477 

125 

122 

105 


.ASCII 

/URE/ 

002502 

104 

040 

104 


•ASCII 

/D 0/ 

002505 

125 

122 

111 


.ASCII 

/UR 1/ 

002510 

116 

107 

040 


.ASCII 

/NG / 

002513 

101 

040 

115 


.ASCII 

/A M/ 

002516 

101 

123 

123 


.ASCII 

/ASS/ 

002521 

040 

102 

125 


.ASCII 

/ BU/ 

002524 

123 

040 

127 


.ASCII 

/S U/ 

002527 

122 

111 

124 


.ASCII 

/RIT/ 

002532 

105 

040 

103 


.ASCII 

/E C/ 

002535 

110 

105 

103 


.ASCII 

/HEC/ 

002540 

113 

040 

124 


.ASCII 

/K Tf 

002543 

122 

101 

116 


.ASCII 

/RAN/ 

002546 

123 

106 

105 


.ASCII 

/SFc/ 

002551 

122 

000 

000 


.ASCII 

/R/<00><00> 

002554 

000 

000 


P.ABJ: 

.ASCII 

<00><00> 

002556 

045 

124 

045 

P.ABK: 

.ASCII 

/m/ 

002561 

116 

000 

000 


.ASCII 

/N/- 00><00> 

002564 

045 

124 

045 

P.ABL: 

.ASCII 

/xt;/ 

002567 

124 

045 

116 


.ASCII 

/TXN/ 

002572 

000 

000 



.ASCII 

<00><00> 

002574 

045 

124 

045 

P.A8M: 

.ASCII 

/XTX/ 

002577 

124 

045 

124 


.ASCII 

/TXT/ 

002602 

045 

116 

000 


.ASCII 

/XN/<00> 

002605 

000 




.ASCII 

<00> 

002606 

045 

124 

045 

P.ABN: 

.ASCII 

/lit/ 

002611 

124 

045 

124 


.ASCII 

/TXT/ 

002614 

045 

124 

045 


.ASCII 

iVX/ 

002617 

116 

000 

000 


.ASCII 

/N/<00><00> 

002622 

045 

116 

000 

P.ABO: 

.ASCII 

/XN/<00> 

002625 

000 




.ASCII 

<00> 

002626 

045 

116 

000 

P.ABP: 

.ASCII 

/XN/<00> 

002631 

000 




.ASCII 

<00> 

002632 

045 

116 

045 

P.ABO: 

.ASCII 

/XNX/ 

002635 

116 

000 

000 


.ASCII 

/N/<00><00> 

002640 

045 

124 

045 

P.A8R: 

.ASCII 

/XTX/ 

002643 

117 

061 

045 


.ASCII 

/on/ 

002646 

116 

000 



.ASCII 

/N/<00> 

002650 

045 

124 

045 

P.ABS: 

.ASCII 

/XTX/ 

002653 

117 

066 

045 


.ASCII 

/06X/ 

002656 

116 

000 



.ASCII 

/N/<00> 

002660 

045 

124 

045 

P.ABT: 

.ASCII 

/XTX/ 

002663 

104 

062 

045 


.ASCII 

/D2X/ 

002666 

116 

000 



.ASCII 

/N/<00> 
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002670 

045 

101 

104 

P.ABU: 

.ASCII 

002673 

122 

111 

126 


.ASCII 

002676 

105 

040 

045 


.ASCII 

002701 

117 

061 

045 


.ASCII 

002704 

101 

040 

123 


.ASCII 

002707 

105 

114 

105 


.ASCII 

002712 

103 

124 

105 


.ASCII 

002715 

104 

045 

116 


• ASCII 

002720 

000 

000 



.ASCII 

002722 

045 

123 

045 

P.ABV : 

.ASCII 

002725 

123 

045 

123 


.ASCII 

002730 

045 

123 

045 


• ASCII 

002733 

123 

045 

123 


.ASCII 

002736 

045 

123 

045 


.ASCII 

002741 

123 

045 

101 


.ASCII 

002744 

124 

105 

123 


.ASCII 

002747 

124 

111 

116 


.ASCII 

002752 

107 

040 

101 


.ASCII 

002755 

122 

122 

101 


.ASCII 

002760 

131 

040 

045 


.ASCII 

002763 

104 

062 

045 


.ASCII 

002766 

116 

000 



.ASCII 

002770 

045 

123 

045 

P.ABU: 

.ASCII 

002773 

123 

045 

123 


.ASCII 

002776 

045 

123 

045 


.ASCII 

003001 

123 

045 

123 


.ASCII 

003004 

045 

123 

045 


.ASCII 

003007 

123 

045 

123 


.ASCII 

003012 

045 

12 3 

045 


.ASCII 

003015 

123 

045 

123 


.ASCII 

003020 

045 

123 

045 


.ASCII 

003023 

123 

045 

123 


.ASCII 

003026 

045 

123 

045 


.ASCII 

003031 

101 

102 

101 


.ASCII 

003034 

116 

113 

045 


.ASCII 

003037 

123 

045 

123 


.ASCII 

003042 

045 

123 

045 


.ASCII 

003045 

104 

061 

045 


•ASCII 

003050 

116 

000 



.ASCII 

003052 

045 

101 

101 

P.ABX: 

.ASCII 

003055 

122 

122 

101 


.ASCII 

003060 

131 

045 

123 


.ASCII 

003063 

045 

104 

062 


.ASCII 

003066 

045 

123 

045 


.ASCII 

003071 

101 

102 

101 


.ASCII 

003074 

116 

113 

045 


.ASCII 

0030 77 

123 

045 

11 7 


•ASCII 

003102 

061 

045 

123 


.ASCII 

003105 

045 

101 

102 


.ASCII 

003110 

111 

124 

040 


.ASCII 

003113 

043 

045 

123 


.ASCII 

003116 

045 

104 

062 


.ASCII 
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003121 

045 

116 

000 


.ASCII 

/XN/<00> 

003124 

045 

101 

101 

P.ABY: 

.ASCII 

/:aa/ 

003127 

122 

122 

101 


.ASCII 

/RRA/ 

003132 

131 

045 

123 


.ASCII 

/YXS/ 

003135 

045 

104 

062 


.ASCII 

/XD2/ 

003140 

045 

123 

045 


.ASCII 

/xsx/ 

003143 

101 

102 

101 


.ASCII 

/ABA/ 

003146 

116 

113 

045 


.ASCII 

/NKX/ 

003151 

123 

045 

117 


.ASCII 

/SXO/ 

003154 

061 

045 

123 


.ASCII 

/1XS/ 

003157 

045 

101 

116 


.ASCII 

/XAN/ 

003162 

111 

102 

102 


.ASCII 

/IBB/ 

003165 

114 

105 

045 


.ASCII 

/LEX/ 

003170 

123 

045 

104 


.ASCII 

/SXD/ 

003173 

062 

045 

116 


.ASCII 

/2XN/ 

003176 

000 

000 



.ASCII 

<00><00> 

003200 

045 

101 

122 

P.ABZ : 

.ASCII 

/XAR/ 

003203 

105 

120 

114 


.ASCII 

/EPL/ 

003206 

101 

103 

105 


.ASCII 

/ACE/ 

003211 

040 

101 

122 


.ASCII 

/ AR/ 

003214 

122 

101 

131 


.ASCII 

/RAY/ 

003217 

040 

115 

117 


.ASCII 

/ MO/ 

003222 

104 

125 

114 


•ASCII 

/DUL/ 

003225 

105 

045 

123 


.ASCII 

/EXS/ 

003230 

045 

104 

062 


.ASCII 

/XD2/ 

003233 

045 

123 

045 


.ASCII 

/XSX/ 

003236 

123 

045 

101 


.ASCII 

/SXA/ 

003241 

117 

122 

040 


.ASCII 

/OR / 

003244 

122 

105 

122 


.ASCII 

/RER/ 

003247 

125 

116 

040 


.ASCII 

/UN / 

003252 

120 

122 

117 


.ASCII 

/PRO/ 

003255 

107 

122 

101 


.ASCII 

/GRA/ 

003260 

115 

045 

116 


.ASCII 

mxN/ 

003263 

000 




.ASCII 

<00> 

00326*. 

045 

101 

101 

P.ACA: 

.ASCII 

/XAA/ 

003267 

122 

122 

101 


.ASCII 

/RRA/ 

003272 

131 

045 

123 


.ASCII 

/YXS/ 

003275 

045 

104 

062 


.ASCII 

/XD2/ 

003300 

045 

123 

045 


.ASCII 

/XSX/ 

003303 

101 

102 

101 


.ASCII 

/ABA/ 

003306 

116 

113 

045 


.ASCII 

/NKX/ 

003311 

123 

045 

117 


.ASCII 

/SXO/ 

003314 

061 

045 

116 


.ASCII 

/UN/ 

003317 

000 




.ASCII 

<00> 

003320 

045 

123 

045 

P.AC8: 

.ASCII 

/XSX/ 

003323 

123 

045 

123 


.ASCII 

/sxs/ 

003326 

045 

123 

045 


.ASCII 

/xsx/ 

003331 

101 

115 

114 


.ASCII 

/AML/ 

003334 

103 

123 

061 


.ASCII 

/CS1/ 

003337 

045 

123 

045 


.ASCII 

/xsx/ 

00334 2 

123 

045 

123 


.ASCII 

/sxs/ 

003345 

045 

123 

045 


.ASCII 

/xsx/ 


T0PS-20 Blfss-16 V2C212) 
PA:<NEALE>PMSKL4.BLJ .1 (9) 


Page 30 
SEQ 0065 



BSKEL4 

REV B PATCH 00 EXTENDED MESSAGE PRINTING SECTION 


T0PS-20 Bliss-16 V21212) 

PA : <NEALE>PMSKL4 .811.1 (9) 


B 6 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 


003350 

123 

045 

123 

.ASCII 

/SXS/ 

003353 

045 

123 

045 

.ASCII 

/XSX/ 

003356 

123 

045 

123 

.ASCII 

/SIS/ 

003361 

045 

123 

045 

.ASCII 

/xst/ 

003364 

123 

045 

123 

.ASCII 

/sxs/ 

003367 

045 

123 

045 

.ASCII 

/xsx/ 

003372 

123 

C ,5 

123 

.ASCII 

/sxs/ 

003375 

045 

12- 

045 

.ASCII 

/xsx/ 

003400 

117 

Obsj 

045 

.ASCII 

/06X/ 

003403 

116 

000 

000 

.ASCII 

/N/<00><00> 

003406 

045 

123 

045 

P.ACC : .ASCII 

/xsx/ 

003411 

123 

045 

123 

.ASCII 

/sxs/ 

003414 

045 

123 

045 

.ASCII 

/xsx/ 

003417 

101 

115 

114 

.ASCII 

/AML/ 

003422 

127 

103 

045 

.ASCII 

/ucx/ 

003425 

123 

045 

123 

.ASCII 

/sxs/ 

003430 

045 

123 

045 

.ASCII 

/xsx/ 

003433 

123 

045 

123 

.ASCII 

/sxs/ 

003436 

C45 

123 

045 

.ASCII 

/xsx/ 

003441 

123 

045 

123 

.ASCII 

/sxs/ 

003444 

045 

123 

045 

.ASCII 

/xsx/ 

003447 

123 

045 

123 

.ASCII 

/sxs/ 

003452 

045 

123 

045 

.ASCII 

/xsx/ 

003455 

123 

045 

123 

.ASCII 

/sxs/ 

003460 

045 

123 

045 

.ASCII 

/xsx/ 

003463 

123 

045 

117 

.ASCII 

/sxo/ 

003466 

066 

045 

116 

.ASCII 

/6XN/ 

003471 

000 



.ASCII 

<00> 

003472 

045 

123 

045 

P.ACD: .ASCII 

/xsx/ 

003475 

123 

045 

123 

.ASCII 

/sxs/ 

003500 

045 

123 

045 

.ASCII 

/xsx/ 

003503 

101 

115 

114 

.ASCII 

/AML/ 

003506 

102 

101 

045 

.ASCII 

/BAX/ 

003511 

123 

045 

123 

.ASCII 

/sxs/ 

003514 

045 

123 

045 

.ASCII 

/XSX/ 

003517 

123 

045 

123 

.ASCII 

/SXS/ 

003522 

045 

123 

045 

.ASCII 

/xsx/ 

003525 

123 

045 

123 

.ASCII 

/sxs/ 

003530 

045 

123 

045 

.ASCII 

/xsx/ 

003533 

123 

045 

123 

.ASCII 

/sxs/ 

003536 

045 

123 

045 

.ASCII 

/xsx/ 

003541 

123 

045 

123 

.ASCII 

/sxs/ 

003544 

045 

123 

045 

.ASCII 

/xsx/ 

003547 

123 

045 

117 

.ASCII 

/sxo/ 

003552 

066 

045 

116 

.ASCII 

/6XN/ 

003555 

000 



.ASCII 

<00> 

003556 

045 

123 

045 

P.ACE: .ASCII 

/xsx/ 

003561 

123 

045 

123 

.ASCII 

/sxs/ 

003564 

045 

123 

045 

•ASCII 

/xsx/ 

003567 

101 

115 

114 

.ASCII 

/AML/ 

003572 

104 

101 

045 

.ASCII 

/DAX/ 

003575 

123 

045 

123 

.ASCII 

/SXS/ 


Page 

SEO 0066 



REV B PATCH 00 EXTENDED MESSAGE PRINTING SECTION 


TOPS-20 Bliss-16 V2 ( 21 2 > 
PA:<NEAtE>PMSKL4.BLi.1 (9) 


C 6 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 


003600 

045 

123 

045 

.ASCII 

/XSl/ 

003603 

123 

045 

123 

.ASCII 

/sxs/ 

003606 

045 

123 

045 

.ASCII 

/xsx/ 

003611 

123 

045 

123 

.ASCII 

/sxs/ 

003614 

045 

123 

045 

.ASCII 

/xsx/ 

003617 

123 

045 

123 

.ASCII 

/sxs/ 

003622 

045 

123 

045 

.ASCII 

/xsx/ 

003625 

123 

045 

123 

.ASCII 

/sxs/ 

003630 

045 

123 

045 

.ASCII 

/xsx/ 

003633 

123 

045 

117 

.ASCII 

/sxo/ 

003636 

066 

045 

116 

.ASCII 

/6XN/ 

003641 

003642 

000 

045 

123 

045 

.ASCII 
P.ACF : .ASCII 

<00> 

/xsx/ 

003645 

123 

045 

123 

.mSCII 

/sxs/ 

003650 

045 

123 

045 

.ASCII 

/xsx/ 

003653 

101 

115 

114 

.ASCII 

/AML/ 

003656 

103 

123 

062 

.ASCII 

/CS2/ 

003661 

045 

123 

045 

.ASCII 

/XSX/ 

003664 

123 

045 

123 

.ASCII 

/SXS/ 

003667 

045 

123 

045 

.ASCII 

/XSX/ 

003672 

123 

045 

123 

.ASCII 

/sxs/ 

003675 

045 

123 

045 

.ASCII 

/xsx/ 

003700 

123 

045 

123 

.ASCII 

/sxs/ 

003703 

045 

123 

045 

.ASCII 

/xsx/ 

003706 

123 

045 

123 

.ASCII 

/sxs/ 

003711 

045 

123 

045 

.ASCII 

/xsx/ 

003714 

123 

045 

123 

.ASCII 

/sxs/ 

003717 

045 

123 

045 

.ASCII 

/xsx/ 

003722 

117 

066 

045 

.ASCII 

/06Z/ 

003725 

116 

000 

000 

.ASCII 

/N/<00><00> 

003730 

045 

123 

045 

P.ACG: .ASCII 

/xsx/ 

003733 

123 

045 

123 

.ASCII 

/sxs/ 

003736 

045 

123 

045 

.ASCII 

/xsx/ 

003741 

101 

115 

114 

.ASCII 

/AML/ 

003744 

104 

123 

045 

.ASCII 

/DSI/ 

003747 

123 

045 

123 

.ASCII 

/SXS/ 

003752 

045 

123 

045 

.ASCII 

/XSX/ 

003755 

123 

045 

123 

.ASCII 

/SXS/ 

003760 

045 

123 

045 

.ASCII 

/XSX/ 

003763 

123 

045 

123 

.ASCII 

/sxs/ 

003766 

045 

123 

045 

.ASCII 

/xsx/ 

003771 

123 

045 

123 

.ASCII 

/sxs/ 

003774 

045 

123 

045 

.ASCII 

/xsx/ 

003777 

123 

045 

123 

.ASCII 

/sxs/ 

004002 

045 

123 

045 

.ASCII 

/xsx/ 

004005 

123 

045 

117 

.ASCII 

/sxo/ 

004010 

066 

045 

116 

.ASCII 

/6XN/ 

004013 

004014 

000 

045 

123 

045 

.ASCII 
P.ACH: .ASCII 

<0D> 

/xsx/ 

004017 

123 

045 

123 

.ASCII 

/sxs/ 

004022 

045 

123 

045 

.ASCII 

/xsx/ 

004025 

101 

115 

114 

.ASCII 

/AML/ 


Page 5 2 
SEO 0067 


i 


BSKEL4 

REV B PATCH 00 

EXTENDED 

MESSAGE 

PRINTING SECTION 


004030 

105 

122 

C45 


•ASCII 

/ERX/ 

004033 

123 

045 

123 


•ASCII 

/SIS/ 

004036 

045 

123 

045 


•ASCII 

/xsx/ 

004041 

123 

045 

123 


•ASCII 

/ SXS / 

004044 

045 

123 

045 


•ASCII 

/XSX/ 

004047 

123 

045 

123 


•ASCII 

/SXS/ 

004052 

045 

123 

045 


•ASCII 

/xsx/ 

004055 

123 

045 

123 


•ASCII 

/SXS/ 

004060 

045 

123 

045 


•ASCII 

/xsx/ 

004063 

123 

045 

123 


•ASCII 

/SXS/ 

004066 

045 

123 

045 


•ASCII 

/xsx/ 

004071 

123 

045 

117 


•ASCII 

/sxo/ 

004074 

066 

045 

116 


• ASCII 

/6XN/ 

004077 

004100 

000 

045 

123 

045 

P.ACI: 

•ASCII 

•ASCII 

<00> 

/ XSX t 

004103 

123 

045 

123 


•ASCII 

/SXS/ 

004106 

045 

123 

045 


•ASCII 

/xsx/ 

004111 

101 

115 

114 


•ASCII 

/AML/ 

004114 

101 

123 

045 


•ASCII 

/ASX/ 

004117 

123 

045 

123 


•ASCII 

/SXS/ 

004122 

045 

123 

045 


•ASCII 

/XSX/ 

004125 

123 

045 

123 


• ASCII 

/SXS/ 

004130 

045 

123 

045 


•ASCII 

/xsx/ 

004133 

123 

045 

123 


•ASCII 

/SXS/ 

004136 

045 

123 

045 


•ASCII 

/xsx/ 

004141 

123 

045 

123 


•ASCII 

/SXS/ 

004144 

045 

123 

045 


•ASCII 

/xsx/ 

004147 

123 

045 

123 


•ASCII 

/SXS/ 

004152 

045 

123 

045 


•ASCII 

/xsx/ 

004155 

123 

045 

117 


•ASCII 

/sxo/ 

004160 

066 

045 

116 


•ASCII 

/6XN/ 

004163 

004164 

000 

045 

123 

045 

P.ACJ: 

•ASCII 

•ASCII 

<00> 

/xsx/ 

004167 

123 

045 

123 


•ASCII 

/SXS/ 

004172 

045 

123 

045 


• ASCII 

/xsx/ 

004175 

101 

115 

114 


•ASCII 

/AML/ 

004200 

115 

122 

045 


•ASCII 

/MRX/ 

004203 

123 

045 

123 


•ASCII 

/SXS/ 

004206 

045 

123 

045 


•ASCII 

/XSX/ 

004211 

123 

045 

123 


•ASCII 

/SXS/ 

004214 

045 

123 

045 


•ASCII 

/xsx/ 

004217 

123 

045 

123 


•ASCII 

/SXS/ 

004222 

045 

123 

045 


•ASCII 

/xsx/ 

004225 

123 

045 

123 


•ASCII 

/SXS/ 

004230 

045 

123 

045 


•ASCII 

/xsx/ 

004233 

123 

045 

123 


•ASCII 

/SXS/ 

004236 

045 

123 

045 


•ASCII 

/xsx/ 

004241 

123 

045 

117 


•ASCII 

/sxo/ 

004244 

066 

045 

116 


•ASCII 

/6XN/ 

004247 

004250 

000 

045 

123 

045 

P.ACK: 

•ASCII 

•ASCII 

<00> 

/xsx/ 

004253 

123 

045 

123 


•ASCII 

/SXS/ 


D 6 

18-Nar-1982 16:07:57 
18-Mar-1982 15:44:41 


TOPS-20 Blfss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI .1 (9) 


Page 
SEQ 0068 



BSKEL4 
REV B 

PATCH 00 

EXTENDED 

MESSAGE 

PRINTING SECTION 


004256 

045 

123 

045 


.ASCII 

/IS*/ 

004261 

101 

115 

114 


.ASCII 

/AML/ 

004264 

104 

124 

045 


.ASCII 

/DTI/ 

004267 

123 

045 

123 


.ASCII 

/SIS/ 

004272 

045 

123 

045 


.ASCII 

/ISI/ 

004275 

123 

045 

123 


.ASCII 

/si:/ 

004300 

045 

123 

045 


.ASCII 

/ISI/ 

004303 

123 

045 

123 


•ASCII 

/SIS/ 

004306 

045 

123 

045 


.ASCII 

/ISI/ 

004311 

123 

045 

123 


.ASCII 

/SIS/ 

004314 

045 

123 

045 


.ASCII 

/ISI/ 

004317 

123 

045 

123 


.ASCII 

/SIS/ 

004322 

045 

123 

045 


.ASCII 

/ISI/ 

004325 

123 

045 

117 


.ASCII 

/SIO/ 

004330 

066 

045 

116 


.ASCII 

/6IN/ 

004333 

004334 

000 

045 

123 

045 

P.ACL: 

.ASCII 

.ASCII 

<00> 

/ISI/ 

004337 

123 

045 

123 


.ASCII 

/SIS/ 

004342 

045 

123 

045 


.ASCII 

/ISI/ 

004345 

101 

115 

114 


.ASCII 

/AML/ 

004350 

123 

116 

045 


.ASCII 

/SNI/ 

004353 

123 

045 

123 


.ASCII 

/SIS/ 

004356 

045 

123 

045 


.ASCII 

/ISI/ 

004361 

123 

045 

123 


.ASCII 

/SIS/ 

004364 

045 

123 

045 


.ASCII 

/ISI/ 

004367 

123 

045 

123 


.ASCII 

/SIS/ 

004372 

045 

123 

045 


.ASCII 

/ISI/ 

004375 

123 

045 

123 


.ASCII 

/SIS/ 

004400 

045 

123 

045 


.ASCII 

/ISI/ 

004403 

123 

045 

123 


.ASCII 

/SIS/ 

004406 

045 

123 

045 


.ASCII 

/ISI/ 

004411 

123 

045 

117 


.ASCII 

/SIO/ 

004414 

066 

045 

116 


.ASCII 

/6IN/ 

004417 

004420 

000 

045 

123 

045 

P.ACM: 

.ASCII 

.ASCII 

<00> 

/ISI/ 

004423 

123 

045 

123 


.ASCII 

/SIS/ 

004426 

045 

123 

045 


.ASCII 

/ISI/ 

004431 

101 

115 

114 


.ASCII 

/AMI/ 

004434 

105 

105 

045 


.ASCII 

/EEX/ 

004437 

123 

045 

123 


.ASCII 

/SIS/ 

004442 

045 

123 

045 


.ASCII 

/ISI/ 

004445 

123 

045 

123 


.ASCII 

/SIS/ 

004450 

045 

123 

045 


.ASCII 

/ISI/ 

004453 

123 

045 

123 


.ASCII 

/SIS/ 

004456 

045 

123 

045 


.ASCII 

/ISI/ 

004461 

123 

045 

123 


.ASCII 

/SIS/ 

004464 

045 

123 

045 


.ASCII 

/ISI/ 

004467 

123 

045 

123 


.ASCII 

/SIS/ 

004472 

045 

123 

045 


.ASCII 

/ISI/ 

004475 

123 

045 

117 


.ASCII 

/SIO/ 

004500 

066 

045 

116 


.ASCII 

/6IN/ 

004503 

000 




.ASCII 

<00> 


E 6 

18-Mar- 1982 16:07:57 
18-Mar-1982 15:44:41 


TOPS-20 Bliss-16 V2(212> 

PA : <NE ALE>PMSKl4 .811.1 (9) 



Page 35 
SEQ 0070 


f 6 

BSKE14 18-Mar-1982 16:07:57 

REV B PATCH 00 EXTENDED MESSAGE PRINTING SECTION 18-Mar-1982 15:44:41 


004504 

045 

123 

045 

P.ACN: 

.ASCII 

/XSX/ 

004507 

123 

045 

123 


.ASCII 

/sxs/ 

004512 

045 

123 

045 


.ASCII 

/XSX/ 

004515 

101 

115 

114 


.ASCII 

/AML / 

004520 

105 

114 

045 


.ASCII 

/ELX/ 

004523 

123 

045 

123 


.ASCII 

/SXS/ 

004526 

045 

123 

045 


.ASCII 

/XSX/ 

004531 

123 

045 

123 


.ASCII 

/SXS/ 

004534 

045 

123 

045 


.ASCII 

/XSX/ 

004537 

123 

045 

123 


.ASCII 

/SXS/ 

004542 

045 

123 

045 


.ASCII 

/XSX/ 

004545 

123 

045 

123 


.ASCII 

/sxs/ 

004550 

045 

123 

045 


.ASCII 

/XSX/ 

004553 

123 

045 

123 


.ASCII 

/sxs/ 

004556 

045 

123 

045 


.ASCII 

/XSX/ 

004561 

123 

045 

117 


.ASCII 

/SX 0/ 

004564 

066 

045 

116 


.ASCII 

/6XN/ 

004567 

000 




.ASCII 

<00> 

004570 

045 

123 

045 

P.ACO: 

.ASCII 

/XSX/ 

004573 

123 

045 

123 


.ASCII 

/sxs/ 

004576 

045 

123 

045 


.ASCII 

/XSX/ 

004601 

123 

045 

123 


.ASCII 

/sxs/ 

004604 

045 

123 

045 


.ASCII 

/XSX/ 

004607 

123 

045 

123 


.ASCII 

/sxs/ 

004612 

045 

123 

045 


.ASCII 

/XSX/ 

004615 

101 

122 

105 


.ASCII 

/ARE/ 

004620 

107 

111 

123 


.ASCII 

/G IS/ 

004623 

124 

105 

122 


.ASCII 

/TER/ 

004626 

040 

040 

104 


.ASCII 

/ D/ 

004631 

125 

115 

120 


.ASCII 

/UMP/ 

004634 

045 

116 

045 


.ASCII 

/XNX/ 

004637 

116 

000 

000 


.ASCII 

/N/<00><00> 

004642 

045 

123 

045 

P.ACP: 

.ASCII 

/XSX/ 

004645 

123 

045 

101 


.ASCII 

/SXA/ 

004650 

122 

105 

107 


.ASCII 

/REG/ 

004653 

111 

123 

124 


.ASCII 

/IST/ 

004656 

105 

122 

040 


.ASCII 

/ER / 

004661 

116 

101 

115 


.ASCII 

/NAM/ 

004664 

105 

045 

123 


.ASCII 

/EXS/ 

004667 

045 

123 

045 


.ASCII 

/XSX/ 

004672 

123 

045 

123 


.ASCII 

/SXS/ 

004675 

045 

123 

045 


.ASCII 

/XSX/ 

004700 

123 

045 

101 


.ASCII 

/SXA/ 

004703 

103 

117 

116 


.ASCII 

/CON/ 

004706 

124 

105 

116 


.ASCII 

/TEN/ 

004711 

124 

123 

045 


.ASCII 

/TSX/ 

004714 

116 

000 



.ASCII 

/N/<00> 

004716 

000 

000 


P.ACO: 

.ASCII 

<00><00> 


T0PS-20 BLiss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI .1 (9) 


000000 


.PSECT SOWN*. D 



6 6 

IBSKEL4 18-Mar-1982 16:07:57 

I REV B PATCH 00 EXTENDED MESSAGE PRINTING SECTION 18-Mar-1982 15:44:41 


000000 

PM. COUNT : 



.BLKU 

1 

000002 

PM. LOG: .BLKU 

400 

001002 

COl.CNT.TBL: 



.BLKU 

200 

001402 

REM. TBL:. BLKU 

144 

001 712 

COPIED. REM. TBL: 



.BLKU 

144 

002222 

COL. PTR:. BLKU 

5 

002234 

URT.8UF : .BLKU 

2376 

007230 

RD.BUF: .BLKU 

400 

010230 

ERROR. MAP: 



.BLKU 

10000 

030230 

CHIP. TBL: 



.BLKU 

47 

030346 

TMP.BLST.TBL: 


030372 

.BLKU 

12 

BLAST. T8L: 


040372 

.BLKU 

4000 

COL .BASE : 


040374 

.BLKU 

1 

ML.ADDR: .BLKU 

1 

040376 

MAX. CHIP. COL: 



.BLKU 

1 

040400 

ML.DUT: .BLKU 

1 

040402 

ARRSBNK.SEL: 



.BLKU 

1 

040404 

TSTED.BNK: 



.BLKU 

1 

040406 

INC. 8NK:. BLKU 

1 

040410 

INC. ARR:. BLKU 

1 

040412 

ARR.SEL.POS: 



.BLKU 

1 

040414 

BNK.SEL.POS: 



.BLKU 

1 

040416 

BNK.NUM.SEC: 


040420 

.BLKU 

1 

BAD.BNK.REG: 


040422 

.BLKB 

.EVEN 

1 

F LG. REG:. BLKU 

1 

040424 

DEGRADE. MOD. REG: 

040426 

.BLKB 

.EVEN 

1 

SIZE: .BLKU 

1 

040430 

DST: .BLKU 

1 

040432 

SRC: .BLKU 

1 

040434 

LST.TSTED.ARR: 


040436 

.BLKU 

1 

RAND. PASS : 



.BLKU 

1 


TOPS-20 BUss-16 V2(212) 
PA:<NEALE>PMSKL4.BLi.1 (9) 
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T OPS-20 Bliss— 16 V2<212) 
f'A:<NEALE>PMSKL4.BLl.1 (9) 


100000 

040000 

020000 

010000 

004000 

002000 

001000 

000400 

000200 

000100 

000040 

000020 

C00010 

000004 

000002 

000001 

001000 

000400 

000200 

000100 

000040 

000020 

000010 

000004 

000002 

000001 

000040 

000037 

000036 

000035 

000034 

000340 

000300 

000240 

000200 

000140 

000100 

000040 

000000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 


H 6 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 


.GLOBL RANGE N, SEED1 , SEED2, SEED3, RANDAT 
GLOBL LSUNIT 


B I T 1 5 == 
BIT14" 
BIT13== 

BIT 12== 

B I T 1 1 == 

B I T 1 0== 
BIT09== 
BIT08== 
BIT07== 
BIT06== 
BIT05== 

BI T04== 
BIT03== 
BIT02== 
BIT01== 
BITOO== 

BIT9== 

BIT8== 

BI T7== 

BIT6== 

BIT5== 

BIT4== 

BIT3== 

BIT2== 

BI T1== 

BITO== 

EF.START== 

EF.RESTART== 

EF. CONTINUE— 

EF.NEW— 

EF.PWR— 

PR I 07== 

PR I 06== 

PR I 05== 

PR I 04== 

PR I 03== 

PR I 02== 
PRI01== 
PRIOO== 

EVL== 

LOT== 

ADR== 

IDU== 

ISR== 

UAM== 

BOE== 

PNT== 


-100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 

40 

37 

36 

35 

34 

340 

300 

240 

200 

140 

100 

40 

0 

4 

10 

20 

40 

100 

200 

400 

1000 


Page 37 
SEQ 0072 


BSKEL4 

REV B PATCH 00 EXTENDED MESSAGE PRINTING SECTION 


002000 

004000 

010000 

020000 

040000 

100000 

000000 * 

000104* 

000170* 

000244* 

000324* 

000434* 

000544* 

000656* 

000726* 

001000 * 

001032* 

001070* 

001144* 

001222 * 

001256* 

001316* 

001340* 

001372* 

001406* 

001422* 

001436* 

001454* 

001506* 

001562* 

001632* 

001714* 

001764* 

002040* 

002116* 

002176* 

002236* 

002310* 

002352* 

002422* 

002474* 

002554* 

002556* 

002564* 

002574* 

002606* 

002622* 

002626* 

002632* 

002640* 

002650’ 

002660' 


PRI== 

IXE== 

IBE== 

IER== 

LOE== 

HOE= s 

FMT16= 

PM$HEADER= 

PM.HEADER= 

PM.14.MSG= 

PM.10.MSG= 

PM. 11 .MSG s 

PM.12.MSG= 

PM.13.MSGs 

ILL.CMD.MSG= 

BGN.MSG- 

START.MSG= 

HQ.ERR.MSG- 

HQ.MSG= 

END.MSG= 

SUPRES.MS6= 

RET.DRS.MSG= 

LUN.MISS.MSG= 

CON.A.MSG= 

CON.B.MSG= 

CON.C.MSG= 

CON.D.MSG= 

UNC.CHIP.MSG= 

GTR.MS6= 

UNIT.SEL.MSG= 

SU.BUG.MSG= 

ABORT. MSG- 

NO.AD.MSG= 

UNC. ERR. MSG= 

TIME. OUT. MSG= 

REP.M7363.MSG* 

MEM.ERR.MSG= 

UNX.DRV.ERR.MSG= 

RD.XFER.MSGs 

URT.XFER.MSG= 

WT.CHK.XFER.MSG: 

X.MSG= 

ONE.MSG= 

TWO.MSG= 

THREE. MSG= 
FOUR.MSG= 

CRLF= 

LF= 

LFS= 

0.1. PRINT= 

0.6. PRINT= 

D. 2. PRINT= 


I 6 

18-Mar-1982 16:07:57 
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Page 38 
SEO 0073 


2000 

4000 

10000 

20000 

40000 

-100000 

P.AAA 

P.AAB 

P.AAC 

P.AAD 

P.AAE 

P.AAF 

P.AAG 

P.AAH 

P.AAI 

P.AAJ 

P.AAK 

P.AAL 

P.AAM 

P.AAN 

P.AAO 

P.AAP 

P.AAQ 

P.AAR 

P.AAS 

P.AAT 

P.AAU 

P.AAV 

P.AAU 

P.AAX 

P.AAY 

P.AAZ 

P.ABA 

P.ABB 

P.ABC 

P.ABD 

P.ABE 

P.ABF 

P.ABG 

P.ABH 

P.ABI 

P.ABJ 

P.ABK 

P.ABL 

P.ABM 

P.ABN 

P.ABO 

P.A8P 

P.ABQ 

P.ABR 

P.ABS 

P.ABT 
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T0PS-20 Bliss-16 V2(212> 
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002670* 

DRV. SEL. PRINT= 


P.ABU 

002722* 

ARR.SEL. PRINT* 


P.ABV 

002770' 

BNK.SEL. PRINT* 


P.ABU 

003052' 

A. 8. C. PRINT* 


P.ABX 

003124* 

A.B.N. PRINT* 


P.ABY 

003200* 

REP. PRINT* 


P.ABZ 

003264* 

A.B. PRINT* 


P.ACA 

003320* 

CS1. PRINT* 


P.ACB 

003406* 

UC. PRINT* 


P.ACC 

003472* 

BA. PRINT* 


P.ACD 

003556* 

DA. PRINT* 


P.ACE 

003642* 

CS2. PRINT* 


P.ACF 

003730* 

DS. PRINT* 


P.ACG 

004014* 

ER. PRINT* 


P.ACH 

004100* 

AS. PRINT* 


P.ACI 

004164* 

MR. PRINT* 


P.ACJ 

004250* 

DT. PRINT* 


P.ACK 

004334* 

SN. PRINT* 


P.ACL 

004420* 

EE. PRINT* 


P.ACM 

004504' 

EL. PRINT* 


P.ACN 

004570' 

HEADER. PRINT* 


P.ACO 

004642* 

COL.DESC. PRINT* 


P.ACP 

004716* 

X. PRINT* 


P.ACQ 


.SBTTL 

DUMPER EXTEI 


.PSECT 

SCODES 

004767 000000V 

DUMPER: :JSR 

PC,M$DUMPER 

104423 

TRAP 

23 


000207 

RTS 

PC 



OOOOOO 


Routine Size: 4 words 

Maximum stack depth per invocation: 


0 words 


2207 PRINTB 

2208 PRINTB 

2209 PRINTB 

2210 PRINTB 

221 1 PRINTB 

2212 PRINTB 

2213 PRINTB 

2214 PRINTB 

2215 PRINTB 

2216 PRINTB 

2217 PRINTB 

2218 PRINTB 

2219 PRINTB 

2220 PRINTB 

2221 PRINTB 

2222 ENDMSG; 


(HEADER PRINT) ; 
(COL.DESC PRINT); 
(CS1PRINT, .ML.ADDR 
(WC PRINT, .ML.ADDR 
(BA PRINT, .ML.ADDR 
(DA PRINT, .ML ADDR 
(CS2 PRINT, .MC ADDR 
(DS PRINT, .ML.ADDR 
(ER"PRINT, .ML .ADDR 
(AS PRINT, .ML .ADDR 
(MR PRINT, .ML .ADDR 
(DT’PRINT, .ML.ADDR 
(SN”PRINT, .ML.ADDR 
(EE“PRINT, .ML ADDR 
(EL'PRINT, .ML ADDR 


CMLCS1, ML ALU); 
CMLUC. ML.ACL3) ; 
CML8A, ML>LL3); 
CMLDA, ML.ALL3); 
CMLCS2, RL.ALLj); 
CMLDS, ML.ACL3); 
CMLER, ML.ALLJ), 
CMLAS, ML.ALLJ), 
CMLMR, ML.ALLJ), 
CMLDT, ML.ALL3), 
CMLSN, ML.ALL3), 
CMLEE, ML.ALLJ), 
CMLEL, ML.ALL3), 


! Print the header 
{Describe the column headings 
{Print mlcsl contents 
{Print mlwc contents 
{Print mlba contents 
{Print mlda contents 
{Print mlcs2 contents 
{Print mlds contents 
{Print mler contents 
{Print mlas contents 
{Print mlmr contents 
{Print mldt contents 
{Print mlsn contents 
{Print mlee contents 
{Print mlel contents 


BSKEL4 

REV B PATCH 00 EXTENDED MESSAGE PRINTING SECTION 


000010 162706 000032 


000014 
000020 
000024 
000026 
000030 
000034 
000040 
000042 
000044 
000052 
000056 
000062 
000066 
000070 
000072 
000076 
000104 
000110 
000114 
000120 
000122 
0001 21 
000130 
000136 
000142 
000146 
000152 
000154 
000156 
000162 
000170 
000174 
000200 
000204 
000206 
000210 
000214 
000222 
000226 
000232 
000236 
000240 
000242 
000246 
000254 
000260 
000264 


012746 

012746 

010600 

104414 

012716 

012746 

010600 

104414 

017766 

016616 

012746 

012746 

010600 

104414 

016700 

016066 

016616 

012746 

012746 

010600 

104414 

016700 

016066 

016616 

012746 

012746 

010600 

104414 

016700 

016066 

016616 

012746 

012746 

010600 

104414 

016700 

016066 

016616 

012746 

012746 

010600 

104414 

016700 

016066 

016616 

012746 

012746 


004570' 

000001 


004642' 

000001 


040374* 000036 

000036 

003320* 

000002 


040374' 

000002 000040 

000040 

003406' 

000002 


040374* 

000004 000042 

000042 

003472’ 

000002 


040374* 

000006 000044 

000044 

003556* 

000002 


040374* 

000010 000046 

000046 

003642* 

000002 


040374* 

000012 000050 

000050 

003730* 

000002 


.sent 

MJDUMPER : 

SUB 

MOV 

MOV 

MOV 

TRAP 

MOV 

MOV 

MOV 

TRAP 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

MOV 

MOV 

MOV 

MOV 

MOV 



BSKFL4 
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REV B PATCH 00 

EXTENDED MESSAGE 

PRINTING SECTION 

18-Mar-1982 15:44:41 

PA:<NEALE>PMSKL4.BLI.1 (9) 

SEQ 0076 

000270 

010600 



MOV 

SP.RO 

; SP.* 


000272 

104414 



TRAP 

14 



000274 

016700 

040374* 


MOV 

ML.ADDR.RO 

• 

2215 

000300 

016066 

000014 

000052 

MOV 

14(R0) ,52(SP) 

; *,ML.REG 


000306 

)16616 

000052 


MOV 

52(SP) , (SP) 

; ML. REG,* 


000312 

01 2746 

004014* 


MOV 

#ER. PRINT. -(SP) 



000316 

012746 

000002 


MOV 

#2.-(SP) 



000322 

010600 



MOV 

SP.RO 

; SP.* 


000324 

104414 



TRAP 

14 



000326 

016700 

040374* 


MOV 

ML.ADDR.RO 

# 

2216 

000332 

016066 

000016 

000054 

MOV 

16(R0),54(SP) 

; *,ML.REG 


000340 

016616 

000054 


MOV 

54(SP) , (SP) 

; ML. REG.* 


000344 

012746 

004100* 


MOV 

#AS. PRINT, -(SP) 



000350 

012746 

000002 


MOV 

#2,-(SP) 



000354 

010600 



MOV 

SP.RO 

; SP.* 


000356 

104414 



TRAP 

14 



000360 

016700 

040374* 


MOV 

ML.ADDR.RO 

0 

2217 

000364 

016066 

000024 

000056 

MOV 

24(R0),56(SP) 

; *,ML.REG 


000372 

016616 

000056 


MOV 

56(SP),(SP) 

; ML. REG.* 


000376 

012746 

004164* 


MOV 

#MR. PRINT, -(SP) 



000402 

012746 

000002 


MOV 

*2.-(SP) 



000406 

010600 



MOV 

SP.RO 

; SP,* 


000410 

104414 



TRAP 

14 



000412 

016700 

040374 * 


MOV 

ML.ADDR.RO 

• 

2218 

000416 

016066 

000026 

000060 

MOV 

26(R0) ,60(SP) 

. *.ML.REG 


000424 

016616 

000060 


MOV 

60(SP),(SP> 

; ML. REG,* 


000430 

012746 

004250* 


MOV 

#DT. PRINT, -(SP) 



000434 

012746 

000002 


MOV 

*2,-(SP> 



G00440 

010600 



MOV 

SP.RO 

; SP,* 


000442 

104414 



TRAP 

1 4 



000444 

016700 

040374' 


MOV 

ML.ADDR.RO 

• «... 

2219 

000450 

016066 

000030 

000062 

MOV 

30(R0).62(SP) 

; *,ML.REG 


000456 

016616 

000062 


MOV 

62(SP).(SP) 

; ML. REG.* 


000462 

012746 

004334* 


MOV 

#SN. PRINT, -(SP) 



000466 

012746 

000002 


MOV 

*2,-(SP) 



000472 

010600 



MOV 

SP.RO 

; SP,* 


000474 

104414 



TRAP 

14 



000476 

016700 

040374* 


MOV 

ML.ADDR.RO 

# 

2220 

000502 

016066 

000042 

000064 

MOV 

42(R0).64(SP) 

; *,ML.REG 


000510 

016616 

000064 


MOV 

64(SP),(SP) 

; ML. REG.* 


000514 

012746 

004420* 


MOV 

#EE. PRINT, -(SP) 



000520 

012746 

000002 


MOV 

#2,-(SP) 



000524 

010600 



MOV 

SP.RO 

; SP,* 


000526 

104414 



TRAP 

14 



000530 

016700 

040374* 


MOV 

ML.ADDR.RO 

* 

• 

2221 

000534 

016066 

000044 

000066 

MOV 

44(R0),66(SP) 

; *.ML.REG 


000542 

016616 

000066 


MOV 

66(SP),(SP) 

; ML. REG,* 


000546 

012746 

004504* 


MOV 

#EL. PRINT, -(SP) 



000552 

012746 

000002 


MOV 

*2.-(SP) 



000556 

010600 



MOV 

SP.RO 

; SP.* 


000560 

104414 



TRAP 

14 



000562 

062706 

000124 


ADD 

#124,SP 

• 

2206 
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BSKEL4 

REV B PATCH 00 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 
2261 
2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 


N 6 

18-Mar-1982 16:07:57 T0PS-20 Bliss-16 V2(212> 

ROUTINE DECLARATIONS 18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.BLI.1 (10) 

Xsbttl 'ROUTINE DECLARATIONS' 

global routine SUMMARY : novalue = 
begin 


Functional Description: , , , , 

This global routine is called from the report 
code section contained in skell 2 of this diagnostic. 

The purpose of this routine is to report to the 
operator a statistical report of the prom maintenance 
program on this unit. 

Formal Parameters: 
none 

Implicit Inputs: 

WBUFF 

Implicit Outputs: 

Completion codes: 
none 

Side Effects: 
none 


See if any additional errors were found bad 
during execution of the Prom Maintenance program. 
If additional errors were found then dump to the 
the console terminal the Prom Maintenance program 
summary report code else print that no additional 
were found. 


if .PM.COUNT gtr ZERO 
then 

begin 

PRINTS (CRLF); 

PRINTS (ONE MSG. PM.HEADER); 
PRINTS (PM T0.MS6); 

PRINTS (PM.11.HSG); 

PRINTS (PMJ2.NSG); 

PRINTS (PN13.MSG); 

PRINT8 (CRCF); 

PRINTS (ONE MSG, PMSHEADER); 


[Were additional errors found 


[Print a formating <crlf> 

! Print the header message 
!Print out summary message 
! Print out summary message 
! Print out summary message 
[Print out summary message 
[Print another formating <crlf> 
[Print out the chip location header 


Index through the summary table and print out its, 
contents to the console terminal for operator review. 
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BSKEL4 


REV B PATCH 00 


2275 


2276 

2277 

2278 
P 2279 
P 2280 
P 2281 
P 2282 
P 2283 


2284 


2285 


2286 


2287 


2288 


2289 


2290 


2291 


2292 


2293 


2294 


2295 


2296 


2297 


2298 


2299 


2300 

000570 

004167 

000574 

005767 


003546 

000602 

012746 

000606 

012746 

000612 

010600 

000614 

104414 

000616 

012716 

000622 

012746 

000626 

012746 

000632 

010600 

000634 

104414 

000636 

012716 

000642 

012746 

000646 

010600 

000650 

104414 

000652 

012716 

000656 

012746 

000662 

010600 

000664 

104414 

000666 

012716 

000672 

012746 


ROUTINE DECLARATIONS 
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18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.BLI .1 (10) 


incr index from 0 to .PM_C0UNT - 1 do 
begin 

PRINTS (FMT16, 

.PM L06 [.index, UNITS PM J, 
.PM“L06 [.index. BRD$_PMJ. 

.PM LOG [.index. BNKS.PMJ, 

mu"i r J BTT# r»Ml 


end 


iPM’LOG [.index, BITS^PMJ. 
.PM~L0G [.index, SUMS.PM3); 


! This is the printing format 
IPrint the failing unit of this sbe 
.'Print the failing board number 
! Print the failing bank number 
! Print the failing bit number 
IPrint the total rous/col blasted 


end 

else 

begin 

PRINTB (CRLF); 

PRINTB (ONE MSG. PM_HEADER); 
PRINTB (PM TO MSG); 

PRINTB (PM 11 MSG); 

PRINTB (PM 12.MSG); 

PRINTB (PM 13.MSG); 

PRINTB (CRCF); 

PRINTB (ONE .MSG, PMJ4.MSG); 
end; 


end; 

.S8TTL 

OOOOOOG 

000000* 

SUMMARY:: 

JSR 

TST 

BLE 

002622' 

MOV 

000001 

MOV 


MOV 


TRAP 

000170' 

MOV 

002556* 

MOV 

000002 

MOV 


MOV 


TRAP 

000324* 

MOV 

000001 

MOV 


MOV 


TRAP 

000434* 

MOV 

000001 

MOV 


MOV 


TRAP 

000544* 

MOV 

000001 

MOV 


IPrint a formating <crlf> 

IPrint the header message 
IPrint out summary message 
IPrint out summary message 
IPrint out summary message 
IPrint out summary message 
IPrint another formating <crlf> 


SUMMARY ROUTINE DECLARATIONS 


R1.SSAVE3 

• 

PM. COUNT 

9 

3$ 


#CRLF,-(SP) 

9 

#1.-(SP) 


SP.RO 

; SP.* 

14 


fPM.HEADER.(SP) 

0 

#ONE.MSG.-(SP) 


#2.-(SP> 


SP.RO 

; SP.* 

14 


#PM.10.MSG,(SP) 

0 

#1.-(SP) 


SP.RO 

; SP.* 

14 


fPM.II.MSG.(SP) 

• 

9 

fl.-(SP) 


SP.RO 

; SP.* 

14 


#PM.12.MSG.(SP) 

0 


#1,-<SP) 
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2225 

2261 

2264 
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000676 

010600 


MOV 

SP.RO 


SP,* 


000700 

104414 


TRAP 

14 




000702 

012716 

000656* 

MOV 

#PM. 13.MSG, (SP) 



2269 

000706 

012746 

000001 

MOV 

01. -ISP) 




000712 

010600 


MOV 

SP.RO 


SP,* 


000714 

104414 


TRAP 

14 




000716 

012716 

002622* 

MOV 

#CRLF,(SP) 



2270 

000722 

012746 

000001 

MOV 

#1,-(SP> 



j 

000726 

010600 


MOV 

SP.RO 


SP,* 

1 

000730 

104414 


TRAP 

14 




000732 

012716 

000104* 

MOV 

#PM$HEADER.(SP) 



2271 

000736 

012746 

002556* 

MOV 

fONE.MSG.-(SP) 




000742 

012746 

000002 

MOV 

#2.-(SP) 




000746 

010600 


MOV 

SP.RO 

> 

SP,* 


000750 

104414 


TRAP 

14 




000752 

016703 

000000* 

MOV 

PM. COUNT. R3 

► 


2277 

000756 

005002 


CLR 

R 2 


INDEX 


000760 

000453 


BR 

2$ 




000762 

010201 


1$: MOV 

R2.R1 

# 

INDEX,* 

2284 

000764 

006301 


ASL 

R1 




000766 

006301 


ASL 

R1 




000770 

016146 

000004* 

MOV 

PM.L0G+2(R1),-(SP> 




000774 

062701 

000002’ 

ADD 

#PM.L0G,R1 




001000 

011100 


MOV 

(RI).RO 




001002 

006200 


ASR 

RO 




001004 

006200 


ASR 

RO 




001006 

006200 


ASR 

RO 




001010 

006200 


ASR 

RO 




001012 

006200 


ASR 

RO 




001014 

006200 


ASR 

RO 




001016 

042700 

177600 

BIC 

f 177600.R0 

RO.-(SP) 

(RI).-(SP) 

#177*74, (SP) 




001022 

010046 


MOV 




001024 

111146 


M0V8 




001026 

042716 

177774 

BIC 




001032 

111100 


M0V8 

(R1),R0 




001034 

006200 


ASR 

RO 




001036 

006200 


ASR 

RO 




001040 

042700 

177760 

BIC 

f 177760.R0 

RO.-(SP) 




001044 

010046 


MOV 




001046 

011100 


MOV 

(RI).RO 



i 

001050 

006100 


ROL 

RO 




001052 

006100 


ROL 

RO 



1 

001054 

006100 


ROL 

RO 




001056 

006100 


ROL 

RO 




001060 

042700 

177770 

BIC 

#1 77770.R0 

RO.-(SP) 




001064 

010046 


MOV 



1 

001066 

012746 

000000' 

MOV 

#FMT16,-(SP) 



1 

001072 

012746 

000006 

MOV 

M6.-(Sh 



i 

001076 

010600 


MOV 

SP.RO 

• 

0 

SP,* 


001100 

104414 


TRAP 

14 



2278 ' 

001102 

062706 

000016 

ADD 

#16, SP 

0 


001106 

005202 


INC 

R2 

• 

0 

INDEX 

2277 
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TOPS-20 Bliss-16 V2C212) 
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001110 

001112 

001114 

001116 

001122 

001126 

001130 

001132 

001136 

001142 

001146 

001150 

001152 

001156 

00r62 

001164 

001166 

001172 

001176 

001200 

001202 

001206 

001212 

001214 

001216 

001222 

001226 

001230 

001232 

001236 

001242 

001244 

001246 

001252 

001256 

001262 

001264 

001266 

001272 


020203 

002723 

000464 

012746 

012746 

010600 

104414 

012716 

012746 

012746 

010600 

104414 

012716 

012746 

010600 

104414 

012716 

012746 

010600 

104414 

012716 

012746 

010600 

104414 

012716 

012746 

010600 

104414 

012716 

012746 

010600 

104414 

012716 

012746 

012746 

010600 

104414 

062706 

000207 


002622 1 
000001 


000170' 

002556' 

000002 


000324' 

000001 


000434' 

000001 


000544' 

000001 


000656' 

000001 


002622' 

000001 


000244' 

002556' 

000002 


000026 


21: 

CMP 

R2.R3 

; INDEX 


BLT 

IS 



BR 

4S 

9 

3S: 

MOV 

#CRLF.-(SP) 

9 


MOV 

#1.-(SP) 



MOV 

SP.RO 

; SP,* 


TRAP 

14 



MOV 

#PM. HEADER, (SP) 

9 


MOV 

fONE.MSG.-(SP) 



MOV 

#2,-(S P) 



MOV 

SP,RO 

; SP.* 


TRAP 

14 



MOV 

#PM. 10.MSG, (SP) 

» 


MOV 

#1,-(SP) 



MOV 

SP.RO 

; SP,* 


TRAP 

14 



MOV 

#F»M.11.MSG,(SP) 

0 


MOV 

#1,-(SP) 



MOV 

SP.RO 

; SP.* 


TRAP 

14 



MOV 

#PM.12.NSG,(SP) 

0 


MOV 

#1,-(SP) 



NOV 

SP.RO 

; SP,* 


TRAP 

14 



NOV 

#PM.13.NSG,(SP) 

• 

0 


MOV 

#1,-(SP> 



MOV 

SP.RO 

; SP,* 


TRAP 

14 



MOV 

#CRLF,(SP> 

• 


MOV 

#1,-(SP) 



MOV 

SP.RO 

; SP,* 


TRAP 

14 



MOV 

#PN.14.HSG.(SP) 

• 

0 


MOV 

fONE.MSG.-(SP) 



MOV 

#2,-(SP) 



MOV 

SP.RO 

; SP.* 


TRAP 

14 


4$: 

ADD 

#26, SP 

0 


,;TS 

PC 

0 


; Routine Size: 162 words 
; Maximum stack depth per invocation: 


22 words 


! 


BSKELA 

REV B PATCH 00 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 
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routine GEN_RANDOM.DAT A : novalue = 
begin 


Functional Description: 

This global routine will generate a write buffer 
of random data. The global routine to actually 
enerate the random number is a global routine 
inked at link time. 

Formal Parameters: 
none 

implicit Inputs: 

UBUFF 

Implicit Outputs: 

W8UFF is full up with random data 

Completion codes : 
none 

Side Effects: 
none 


local 

OFFSET; 

WRT.BUF ♦ Xo'O* = .SEED1; 
WRT BUF ♦ Xo'2' = .SEED2; 
WRT BUF ♦ Xo'4’ = .SEED3; 
OFFSET = Xo’6'; 

VER CZMLCB CHANGED 128 TO 256 


Fill the write buffer up with random data 


{Offset variable into write buffer 

{Initial seedl to write buffer ♦ 0 
! Initial seed2 to write buffer ♦ 2 
{Initial seed3 to write buffer + 4 
{Adjust offset by 6 


incr URD CNT from 4 to -256 ♦ 511*2) do 
begin 
RANGEN <); 

BREAK ' 

WRT BUF ♦ .OFFSET = .RANDAT; 

OFFSET = .OFFSET ♦ 2; 
end; 


{Load 768 words with random data 

{Generate the random number 

{Write buffer ♦ offset gets the random number 
{Bump the offset by 2 


end; 


SBTTL GEN. RANDOM. DATA ROUTINE DECLARATIONS 
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001274 004167 0000006 


001300 

001306 

001314 

001322 

001326 

001332 

001336 

001340 

001346 

001352 

001354 

001360 

001362 


016767 

016767 

016767 

012701 

012702 

004767 

104422 

016761 

062701 

005202 

020227 

003764 

000207 


0000006 002234’ 
0000006 002236* 
0000006 002240’ 
000006 
000004 
0000006 

0000006 002234* 
000002 

002376 


6EN. RANDOM. DATA: 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 

1$: JSR 

TRAP 
MOV 
ADD 
INC 
CMP 
8LE 
RTS 


R1.SSAVE2 
SEED1.URT.BUF 
SEED2.WRI .BUF‘2 
SEED3.URT.BUF+4 
#6.R1 
#4.R2 
PC,RAN6EN 
22 

RANDAT , WRT .BUF (R1 ) 

#2,R1 

R2 

R2.#2376 

IS 

PC 


TOPS-20 Bl i **—16 V2(212) 

PA : <NEALE >PMSKL4 . BL 1 . 1 (11) 


*, OFFSET 
*, WRD.CNT 


‘(OFFSET) 
*, OFFSET 
WRD.CNT 
WRD.CNT,* 


; Routine Size: 28 words 

; Maximum stack depth per invocation: 3 words 



2302 


1 


KFv 0 PATCH 00 


2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 
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routine DM_RD_TRANSFER (SIZE, DST, SRC) : novalue = 
begin 


Functional Description: 

This global routine will perfrom a diagnostic 
mode read transfer at the designated 
buffer and sector addresses. 

Formal Parameters: 

SIZE : 

Specifies the size of the transfer 

BUFFER: 

Write buffer address where data Is 
coming from or going to. 

SECTOR: 

ML-11 desired sector address where data 
is coming from or going to. 

Implicit Inputs: 
none 

Implicit Outputs: 
none 

Completion codes: 
none 

Side Effects: 
none 


CLR.HBUS; 

DAT.DH (ENA BE); 

WRT RH (HLCS2, DRV SEL, .HL OUT); 
WRT“RH (HLWC, WC RpG, .SIZE7; 

WRT RH (HLDA. DA REG. .SRC); 

WRT'RH (HLBA, BA REG, .DST); 

WRT“RH (HLCS1. FONC. FUNC.4); 

end; 


.'Clear the mass bus 

!Enable data dfag mode 

iSelect the divice under test 

!Load the transfer size 

!Load the transfer source address 

!Load the transfer destination address 

!Load a read function with go set 


001364 010146 

001366 016700 
001372 016046 
001376 011601 
001400 152701 
001404 016700 
001410 010160 
001414 0167ftn 


040374' 

000010 

000040 

040374' 

000010 

040374' 


.S8TTL 
OH. RD. TRANSFER : 
HOV 
MOV 
HOV 
HOV 
BISS 
HOV 
HOV 
HOV 


DM. RD. TRANSFER ROUTINE DECLARATIONS 


R1,-(SP) 
HL.AODR.RO 
10(R0).-(SP) 
(SP).Rl 
#40, R1 
HL.AODR.RO 
R1 ,10(RO) 
HL.AODR.RO 


*,HL.REG 

HL.REG.HLREG 

*,HLREG 

HLREG.* 
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001A20 
001 A2A 
001 A26 
001 A32 
001 AJ4 
001 AA2 
001 AAA 
001A50 
001A5A 
001 A 60 
001 A6A 
001 A66 
001A72 
001A76 
001502 
001506 
001512 
00151A 
001520 
001 52A 
001530 
001532 
001536 
001 5A2 
001 5A6 
001552 
001556 
001562 
001566 
001572 
001576 
001602 
001606 
001612 
001616 
001622 
001626 
001632 
001636 
001 6A2 
001 6AA 
001650 
001 65A 
001660 
00166A 
001666 


0160A6 

011601 

016700 

0A2700 

1A2701 

050001 

016700 

010160 

016700 

0160A6 

011601 

152701 

016700 

010160 

016700 

0160A6 

011601 

016700 

0A2700 

1A2701 

050001 

016700 

010160 

016700 

0160A6 

016601 

016700 

010160 

016700 

0160A6 

016601 

016700 

010160 

016700 

0160A6 

016601 

016700 

010160 

0177A6 

012600 

1A2700 

152700 

010077 

062706 

012601 

000207 


ROUTINE DECLARATIONS 

000010 

OAOAOO* 

177770 

000007 

0A037A ' 

000010 

0A037A’ 

00002A 

000010 
0A037A * 

00002A 

0A037A* 

000010 

OAOAOO* 

177770 

000007 

0A037A * 

000010 
0A037A ' 

000002 
000022 
0A037A * 

000002 
0A037A ' 

000006 
000020 
0A037A * 

000006 
0A037A * 

000004 
00002A 
0A037A * 

OOOOOA 

0A037A* 

000077 
000051 
0A037A ' 

000016 


H 7 
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NOV 10(R0).-(SP) 

NOV (SP),R1 

NOV NL.DUT.R0 

BJC #177770, RO 

BICB #7,R1 

BIS R0.R1 

NOV NL.ADDR.RO 

NOV RI.IO(RO) 

NOV NL.ADDR,RO 

NOV 2A(R0).-(SP) 

NOV (SP) ,R1 

BJS8 #10, R1 

NOV NL.ADDR.RO 

NOV R1,2A(R6) 

NOV NL.ADDR,RO 

NOV 10(R0).-(SP) 

NOV (SP) ,R1 

NOV NL.DUT.RO 

BJC #1 77770, RO 

BICB #7,R1 

BIS R0,R1 

NOV NL.ADDR.RO 

NOV R1,10(R0) 

NOV NL.ADDR,R0 

NOV 2(R0).-(SP) 

NOV 22(SP),R1 

NOV NL.AODR,RO 

NOV R1 ,2(R0) 

NOV NL.AODR,RO 

NOV 6(R0).-(SP) 

NOV 20(SP),R1 

NOV NL.ADDR f RO 

NOV R1,6(R0) 

NOV NL.ADDR,RO 

NOV A(RO) .-(SP) 

NOV 2A(SP),R1 

NOV NL.AODR,RO 

NOV RI.A(RO) 

NOV BNL.ADDR.-(SP) 

NOV (SPJ+.RO 

BICB #77, RO 

BIS6 #51, RO 

NOV RO,BNL.ADDR 

ADD #16 f SP 

NOV (SP) +.R1 

RTS PC 


; Routine Swe: 98 words 
; Naximum stack depth per invocation: 


10 words 


TOPS-20 Bl i **—16 V2(212) 
PA:<NEALE>PNSKLA.BLI.1 (12) 

; *,NL.REG 
; NL.REG.NLREG 


*,NLREG 

*.NLREG 

NLREG,* 

•.NL.REG 
NL.REG,NLREG 
*, NLREG 

NLREG,* 

*, NL.REG 
NL.REG, NLREG 


*, NLREG 
*, NLREG 

NLREG,* 

*,NL.REG 
SIZE, NLREG 

NLREG,* 

*, NL.REG 
SRC, NLREG 

NLREG,* 

*,NL.REG 
DST, NLREG 

NLREG, * 
*,NL.RE6 
NL.REG, NLREG 
*, NLREG 
*. NLREG 
NLREG,* 



238A 

2385 

2386 

2387 

2388 

i 

2389 

2351 
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2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 
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routine DM_WRT_TRANSF ER (SIZE. DST, SRC) : novalue = 
begin 


♦♦ 

Functional Description: 

This global routine will perform a diagnostic 
mode write transfer at the designated 
buffer and sector addresses. 


Formal Parameters: 
SIZE: 

Size 


of the transfer 


BUFFER: 

SECTOR: 


Write buffer address where data is 
coming from or going to. 

ML-11 desired sector address where data 
is coming from or going to. 


Implicit Inputs: 
none 


Implicit Outputs: 
none 

Completion codes: 
none 

Side Effects: 
none 


CLRjeuS; 

DAT DM (ENABE); 

WRT”RH (MLCS2, DRV SEL. .ML DUT); 
WRT“RH (ML WC . WC_REG. .SIZET; 

WRT RH (MLDA, DA.REG. .DST); 
WRT'RH (MLBA, BA REG. .SRC); 
WRT'RH (MLCS1. FONC. FUNC.5); 
end; 


! Clear the mass bus 

.'Enable data diag mode 

[Select the divice under test 

[Load the transfer size 

'.Load the destination address 

[Load the source address 

[Load a write function with go set 


001670 

001672 

001676 

001702 

001704 

001710 

001714 

001720 


010146 

016700 

016046 

011601 

152701 

016700 

010160 

016700 


040374’ 

000010 

000040 

040374’ 

000010 

040374' 


.SBTTL 

DM. WRT. TRANSFER: 
MOV 
MOV 
MOV 
MOV 
BISB 
MOV 
MOV 
MOV 


DM. WRT. TRANSFER ROUTINE 

RI.-(SP) 

ML.ADDR.RO 

10(R0).-(SP) 

(SP).RT 

/T40.R1 

ML.ADDR.RO 

RI.IO(RO) 

ML.ADDR.RO 


DECLARATIONS 


; *.ML.REG 
; ML.REG.MLREG 
; *,MLREG 

; MLREG.* 
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PA:<NEALE>PMSKL4.BLI.1 (13) 

001724 

016046 

000010 

MOV 

10(R0).-(SP) 

(SP).Rl 

; *.ML.RE6 

001730 

011601 

MOV 

; ML.REG.MLREG 

001732 

016700 

040400* 

MOV 

ML.DUT.RO 
#1 77776, RO 


001736 

042700 

177770 

BIC 


001742 

142701 

000007 

BICB 

#7,R1 

; * .MLREG 

001746 

050001 


BIS 

R0,R1 

; * .MLREG 

001750 

016700 

040374* 

MOV 

ML.ADDR.RO 

R1 ,10(RO) 


001754 

010160 

000010 

MOV 

; MLREG,* 

001760 

016700 

040374* 

MOV 

ML.ADDR.RO 

0 

001764 

016046 

000024 

MOV 

24(R0).-(SP) 

<SP). R1 

; *.ML.REG 

001770 

011601 

MOV 

; ML.REG.MLREG 

001772 

152701 

00C010 

BISB 

#10, R1 

; *.MLREG 

001776 

016700 

040374* 

MOV 

ML.ADDR.RO 

R1.24(r6> 


002002 

010160 

000024 

MOV 

; MLREG,* 

002006 

016700 

040374* 

MOV 

ML.ADDR.RO 

• 

0 

002012 

016046 

000010 

MOV 

10(R0).-(SP) 

(SP).RI 

; *,ML.REG 

002016 

011601 

MOV 

; ML.REG.MLREG 

002020 

016700 

040400* 

MOV 

ML.DUT.RO 
#1 77776. RO 


002024 

042700 

177770 

BIC 


002030 

142701 

000007 

BICB 

#7,R1 

; *.MLREG 

002034 

050001 


BIS 

R0.R1 

; *,MLREG 

002036 

016700 

040374* 

MOV 

ML.ADDR.RO 

R1,10(R6) 


002042 

010160 

000010 

MOV 

; MLREG,* 

002046 

016700 

040374' 

MOV 

ML.ADDR.RO 


002052 

016046 

000002 

MOV 

2<R0),-(SP> 

22(sp5,ri 

; *.ML.REG 

002056 

016601 

000022 

MOV 

; SIZE.MLREG 

002062 

016700 

040374* 

MOV 

ML.ADDR.RO 

R1.2(R0$ 


002066 

010160 

000002 

MOV 

; MLREG,* 

002072 

016700 

040374* 

MOV 

ML.ADDR.RO 


002076 

016046 

000006 

MOV 

6(R0),-(SP) 

22(SP). R1 

; *,ML.REG 

002102 

016601 

000022 

MOV 

; DST, MLREG 

002106 

016700 

040374’ 

MOV 

ML.ADDR.RO 

R1 ,6(R0) 


002112 

010160 


MOV 

; MLREG,* 

002116 

016700 

040374* 

MOV 

ML.ADDR.RO 


002122 

016046 

000004 

MOV 

4<R0).-<SP> 

22($P),R1 

; *,ML.REG 

002126 

016601 

000022 

MOV 

; SRC. MLREG 

002132 

016700 

040374' 

MOV 

ML.ADDR.RO 

R1.4(R0) 


002136 

010160 

000004 

MOV 

; MLREG.* 

002142 

017746 

040374* 

MOV 

BML.ADDR.-(SP) 

; *,ML.REG 

002146 

012600 


MOV 

(SP)*.RO 
#77, r6 

; ML.REG.MLREG 

002150 

142700 

000077 

BICB 

; *. MLREG 

002154 

152700 

000061 

BISB 

#61, RO 

; *, MLREG 

002160 

010077 

040374* 

MOV 

R0.8ML.ADDR 

; MLREG,* 

002164 

062706 

000016 

ADD 

#16, SP 


002170 

012601 


MOV 

(SP)*. R1 


002172 

000207 


RTS 

PC 


; Routine Size: 

98 words 

10 words 



; Maximun stack depth per invocation: 
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SEC 0087 


2424 

2425 

2426 

2427 

2428 

2429 

2391 


BSKEL4 

REV B PATCH 00 ROUTINE DECLARATIONS 


K 7 

18-Mar-1982 16:07:57 
18-Mar- 1982 15:44:41 


T0PS-20 Bliss-16 V2 <2 1 2) 
PA:<NEALE>PMSKL4.BLI.1 (14) 


Page 53 
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2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 


routine DM RAND LOAD (TEMP.ARRSBNK.SEL) : novalue = 
begin 

!♦♦ 

! Functional Description: 

! This global routine will load via diagnostic mode 

! random data to the designated array and bank 

! selected by arrlbnk.sel. 

I 

! Formal Parameters: 

1 ARRS8NK SEL: 

j “This argument stores the array and 

! bank select address. 

I 

! Implicit Inputs: 

! WRT.8UF . RET.STATUS 

! Implicit Outputs: 

! WRT.BUF is filled with random data 

! Completion codes: 

! none 

* 

! Side Effects: 

! none 


local 

S BUF INDEX. 
BOF.IRDEX; 


! Start buffer index pointer 
!Buffer index pointer 


GEN RANDOM DATA (>; ‘Generate a write buffer with random data 

S BOf INDEX = ZERO; ! The first sector starts at write buf word 2 ero 

BOF IRDEX = .S BUF INDEX; !Buf index will get 128 random data words 

DM ORT TRANSFER (SIZE = -256. DST = .TEMP.ARRSBNK.SEL. SRC = WRT.BUF); 


! Increment through all sectors and load them 

! with random data. 

» • 


incr SEC.CNT from 0 to .BNK.NUM.SEC do 
begin 
BREAK; 

incr WRD.CNT from 0 to 127 do 
begin 


!Load all sectors in bank with random data 


.'Load all words in sector with random data 


beam 

WRT RH (MLDi , DB1.REG. .WRT.BUF C.BUF.INDEX, WRD3); .'Load data reg 1 

URT“RH (MLD2, DB2 REG. .WRT BUF C. BUF INDEX. WRD3); Load data reg 2 

WRT“RH (MLE2, E2.REG, .WRT.8UF C. BUF INDEX. WRD3); .'Load data re a 3 

DAT“CLK; TClock the random data into the ml-11 long word 

BUF “INDEX - .BUF INDEX ♦ ONE; !Get the next random data word 


j 
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SEO 0089 


2483 


end; 






2484 








2485 


S BUF INDEX = 

.S BUF INDEX ♦ 2; 

!Start the 

next sector 2 word deeper 



2486 

2487 
2438 
2489 


30F, INDEX = . 
end; 

S.BOF. INDEX; 

!Buf index 

will g»t 128 more random data words 



CLR. 

.MBUS; 


.'Clear the 

single step dma mode 



2490 

end 









.SBTTL 

DM. RAND. LOAD ROUTINE DECLARATIONS 


002 174 

004167 

OOOOOOG 


DM. RAND. LOAD: 

R1.SSAVE5 
#20, SP 


2431 



JSR 

9 

002200 

162706 

000020 


SUB 


2462 

002204 

004767 

177064 


JSR 

PC. GEN. RANDOM. DATA 

9 

002210 

005005 



CLR 

R5 

; S. BUF. INDEX 

2463 

002212 

005004 



CLR 

R4 

; BUF. INDEX 

2464 

002214 

012746 

177400 


MOV 

#-400. -(SP) 

9 

2465 

002220 

011667 

040426' 


MOV 

(SP). SIZE 



002224 

016646 

000040 

040430' 


MOV 

40(SP),-(SP) 

; TENP.ARRI6NK.se.* 


002230 

011667 


MOV 

(SP).DST 



002234 

012746 

002234' 


MOV 

#URT.BUF.-(SP) 



002240 

011667 

040432' 


MOV 

(SP). SRC 



002244 

004767 

177420 


JSR 

PC, DM. URT. TRANSFER 


2472 

002250 

016766 

040416' 

000010 

MOV 

BNK.NUN.SEC.IO(SP) 

• 

9 

002256 

005066 

000006 


CLR 

6 (SP) 

; SEC.CNT 


002262 

000474 



BR 

3S 


2473 

002264 

104422 



1$: TRAP 

22 

9 

002266 

005000 



CLR 

RO 

; WRD.CNT 

2476 

002270 

016703 

040374' 


2$: MOV 

ML.ADDR.R3 

36(R3) J4(SP) 

9 

2478 

002274 

016366 

000036 

000024 

MOV 

; *,NL.REG 


002302 

010403 



MOV 

R4.R3 

; BUF. INDEX,* 


002304 

006303 



ASL 

R3 



002306 

012701 

002234' 


MOV 

#WRT.BUF,R1 



002312 

060301 



ADD 

R3.R1 

(R7),R2 



002314 

011102 



MOV 

; *,NLREG 


002316 

016703 

040374' 


NOV 

NL.ADDR.R3 

R2,36(R3> 



002322 

010263 

000036 

040374* 


NOV 

; NLREG,* 

2479 

002326 

016703 


NOV 

NL.ADDR.R3 

40(R3> ,22(SP) 

• 

002332 

016366 

000040 

000022 

NOV 

; *,NL.REG 


002340 

011102 



NOV 

(rd,r2 

; *. NLREG 


002342 

016703 

040374' 


NOV 

NL.A00R.R3 

R2.40(R3) 



002346 

010263 

000040 


NOV 

; NLREG,* 

2480 

002352 

016703 

040374’ 


NOV 

NL.ADDR.R3 

9 

002356 

016366 

000034 

000020 

NOV 

34(R3)j0(SP) 

<rd,r2 

NL.ADDR.R3 

R2.34(R3> 

; *,NL.REG 


002364 

011102 



NOV 

; *. NLREG 


002366 

016703 

040374' 


NOV 



002372 

010263 

000034 


NOV 

; NLREG.* 


002376 

016703 

040374' 


NOV 

NL.ADDR.R3 

24(R3).l6(SP) 

; *.NL.REG 


002402 

016366 

000024 

000016 

NOV 


002410 

016602 

000016 


NOV 

16(SP).R2 

; NL. REG, NLREG 


002414 

152702 

000020 


BIS8 

#20.R2 

; *. NLREG 



L 
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002420 

002424 

002430 

002432 

002434 

002440 

002442 

002446 

002450 

002454 

002462 

002464 

002470 

002476 

002502 

002506 

002512 

002516 

002522 

002530 

002534 

002540 

002544 

002550 

002552 

002556 

002562 

002566 


016703 

010263 

005204 

005200 

020027 

003713 

062705 

010504 

005266 

026666 

003700 

016703 

016366 

016602 

152702 

016703 

010263 

016703 

016366 

016602 

016705 

042705 

142702 

050502 

016703 

010263 

062706 

000207 


040374’ 

000024 


000177 

000002 

000006 

000006 000010 
040374’ 

000010 000014 
000014 
000040 
040374' 

000010 

040374’ 

000010 000012 
000012 
040400' 

177770 

000007 

040374’ 

000010 

000026 


MOV ML.ADDR.R3 

MOV R2,24(R3) 

INC R4 

INC RO 

CMP R0.#177 

BLE 2$ 

ADD #2.R5 

MOV R5.R4 

INC 6(SP) 

CMP 6(SP).10(SP> 

BLE IS 

MOV ML.ADDR.R3 

MOV 10(R3).14(SP) 

MOV 14(SP).R2 

BISS #40. R2 

MOV ML.ADDR.R3 

MOV R2.10(R3) 

MOV ML.ADDR.R3 

MOV 10(R3).12(SP) 

MOV 12(SP).R2 

MOV ML.DUT.R5 

BIC #177770.R5 

BICB #7,R2 

BIS R5.R2 

MOV ML.ADDR.R3 

MOV R2.10CR3) 

ADD #26. SP 

RTS PC 


TOPS-20 BUss-16 V2(212> 
PA:<NEALE>PMSKL4.BLI .1 (14) 


MLREG,* 

BUF. INDEX 

WRD.CNT 

WRD.CN1 

*.S. BUF. INDEX 

S. BUF. INDEX. BUF. INDEX 

SEC.CNT 

SEC.CNT,* 


*,ML.REG 
ML. REG. MLREG 
*. MLREG 

MLREG.* 

*.ML.REG 
ML. REG, MLREG 


; *. MLREG 
; *. MLREG 


Page 55 
SEQ 0090 


; MLREG.* 


; Routine Size: 126 words 
; Maximum stack depth per invocation: 


17 words 
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2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 
2 r 'T 
25u1 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 
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routine DHJ.OJ.OAD ( TEHP.ARRSBNK.SEL , DATA) : novalue = 
begin 


Functional Description: ........ 

This global routine will load via diagnostic mode 

ones or ZEROS " the contents of data to 

the designated array and bank selected by arrSbnk.sel. 


Formal Parameters: 

ARRSBNK SEL: 

“This argument stores the array and bank 
select address. 

DATA: 

This argument contains the selected data pattern 
to be written into the array and bank selected by 
array bank select. 


Implicit Inp 
WRT.BU 


uts: 

F. RET.STATUS 


Implicit Outputs: 

WRT.BUF is filled with ones or zeros 
data. 


Completion codes: 
none 

Side Effects: 
none 


!Singl.' step dma write mode 

DH WRT TRANSFER (SIZE = -256. DST = . TEHP.ARRS8NK.SEL . SRC = WRT.BUF); 

i ~ 

i Load the diagnostic registers up with the 
! data contained in the argument 'data*. Data 
will either be all ones or all zeros. 


WRT RH (HLD1 . DB1.REG. .DATA); 
WRT RH (HLD2. DB2 REG, .DATA); 
WRT RH (HLE2, E2.REG, .DATA); 


!Load data reg 1 with data 
!Load data reg 2 with data 
!Load data reg 3 with data 


Load this banks sector range up with 
the data just loaded into the diagnostic 
registers. The outer loop will select 
all the sectors within this bank while 
the inner loop will load the data into 
all the words within the sector. 
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2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 


ROUTINE DECLARATIONS 

incr SEC.CNT from 0 to .BNK.NUM.SEC do 

incr URD CNT from 0 to 127 do 
DAT.tLK; 

I 

j VER CZMLCB changed 127 to 255 


Fill the write buffer up with the same 
data pattern that was just transfered 
to the unit under test. 

This will later be used as compare data 
when this sector number is read back. 


incr WRD CNT from 0 to (255 ♦ 511*2) do 
URT.BUF C.WRD.CNT. WRDJ = .DATA; 

CLR.MBUS; 

end; 
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.'Load all sectors in bank with data 

!Load all words in sector with data 
! Clock the data into the ml-11 


!Fill the write buffer up with data 
! Clear the single step dma mode 


002570 

002574 

002600 

002604 

002610 

002614 

002620 

002624 

002630 

002634 

002640 

002646 

002652 

002654 

002660 

002664 

002670 

002676 

002702 

002706 

002712 

002720 

002724 

002730 

002734 


004167 

162706 

012746 

011667 

016646 

011667 

012746 

011667 

004767 

016701 

016166 

016605 

010500 

016701 

010061 

016701 

016166 

016701 

010061 

0^6701 

016166 

016701 

010061 

016704 

005003 


0000006 


000014 

177400 

040426' 

000036 

040430' 

002234' 

040432' 

177034 

040374' 

000036 000020 
000040 


040374' 

000036 

040374' 

000040 

040374' 

000040 

040374' 

000034 

040374* 

000034 

040416' 


000016 


000014 


.S8TTL 

DM.1.0.LOAD: 

JSR 

SI® 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 


DM. 1.0. LOAD ROUTINE DECLARATIONS 


R1,SSAVE5 

#14.SP 

#-400, -(SP) 

($P),SIZE 

36(SP),-<SP) 

(SP),DST 

#WRT.BUF,-(SP) 

<SP),SRC 

PC, DM. WRT. TRANSFER 

NL.ADDK.ftl 

36 (R1) JO(SP) 

40<SP),R5 

R5,R0 

HL.ADDR.ftl 

R0,36(R1) 

ML.ADDft.R1 

40(R1),U(SP) 

ML.ADDR.ftl 

R0,40(R1) 

ML.ADDR.ftl 

34(R1) ,14($P) 

ML.ADDR.R1 

R0,34(Rf) 

8NK.NUM.SEC.R4 

R3 


TEMP.ARRSBNK.SE,* 


*,ML.REG 

DATA.* 

*,MLRE6 

MLRE6.* 

*,ML.RE6 

MLRE6.* 

*,ML.RE6 

MLREG.* 

SEC.CNT 


Page 57 
SCO 0092 


2491 

2524 

2530 

2531 

2532 

2543 


i 
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SEQ 0093 

002736 

000423 




BR 

3$ 




0027/ 0 

005002 



1$: 

CLR 

R2 


; WRD.CNT 

2545 

002742 

016701 

040374’ 


2$: 

MOV 

ML.ADDR.R1 




002746 

016166 

000024 

000012 


MOV 

24 CR1 > ,12(SP) 


; *,ML .REG 


002754 

016600 

000012 



MOV 

12(SP) ,R0 


; ML.REG.MLREG 


002760 

152700 

000020 



BISB 

#20, RO 


; * .MLREG 


002764 

016701 

040374’ 



MOV 

ML.ADDR.R1 




002770 

010061 

000024 



MOV 

R0.24(R1) 


; MLREG.* 


002774 

005202 




INC 

R2 


; WRD.CNT 


002776 

020227 

000177 



CMP 

R2,#177 


; WRD.CNT,* 


003002 

003757 




BLE 

2$ 




003004 

005203 




INC 

R3 


; SEC.CNT 

2543 

003006 

020304 



3$: 

CMP 

R3.R4 


; SEC.CNT,* 


003010 

003753 




BLE 

1$ 




003012 

005000 




CLR 

RO 


; WRD.CNT 

2561 

003014 

010001 



4$: 

MOV 

R0,R1 


; WRD.CNT,* 

2562 

003016 

006301 




ASL 

R1 




003020 

010561 

002234* 



MOV 

R5.WRT.BUF(R1) 




003024 

005200 




INC 

RO 


; WRD.CNT 

2561 

003026 

020027 

002375 



CMP 

R0.#2375 


; WRD.CNT,* 


003032 

003770 




BLE 

4$ 




003034 

016701 

040374’ 



MOV 

ML.ADDR.R1 


0 

2562 

003040 

016166 

000010 

000010 


MOV 

10(R1 ) ,10(SP) 


; *,ML.REG 


003046 

016600 

000010 



MOV 

lOCSPJ.RO 


; ML.REG.MLREG 


003052 

152700 

000040 



BISB 

#40. RO 


; *,MLREG 


003056 

016701 

040374* 



MOV 

ML.ADDR.R1 




003062 

010061 

000010 



MOV 

R0,10(Rl) 


; MLREG,* 


003066 

016701 

040374’ 



MOV 

ML.ADDR.R1 




003072 

016166 

000010 

000006 


MOV 

10(R1).6(SP> 


; *,ML.REG 


003100 

016600 

000006 



MOV 

6CSP) ,R0 


; ML.REG.MLREG 


003104 

016705 

040400’ 



MOV 

ML.DUT-R5 




003110 

042705 

177770 



BIC 

#1 77770. R5 




003114 

142700 

000007 



B1CB 

#7, RO 


; *. MLREG 


003120 

050500 




BIS 

R5.R0 


; *, MLREG 


003122 

016701 

040374’ 



MOV 

ML.ADDR.R1 




003126 

010061 

000010 



MOV 

RO.IO(RI) 


; MLREG,* 


003132 

062706 

000022 



ADD 

#22, SP 


0 

2491 

003136 

000207 




RTS 

PC 




; Routine Size: 

116 words 







; Maximum stack 

depth per invocation: 

15 words 
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2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 
2601 
2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 
2611 
2612 

2613 

2614 

2615 

2616 
2617 


ROUTINE DECLARATIONS 

routine VRT.CHK.TRANSFER (SIZE, DST, SRC) 
begin 
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novalue = 


Functional Description: . , ... 

This global routine will perform a write check transfer 
at the designated buffer and sector address. 

Formal Parameters: 

SIZE : , 

Stores the size of the transfer 

BUFFER: 

Write buffer address where data is 
coming from or going to. 

SECTOR: 

ML-11 desired sector address where data 
is coming from or going to. 

Implicit Inputs: 
none 

Implicit Outputs: 
none 

Completion codes: 
none 

Side Effects: 
none 


CLR MBUS; 

ECC'DIS (ENABE); 

WRT RH (MLCS2, DRV SEL, .ML DUT); 
URT RH (ML VC, WC_REG, .SIZE!; 

WRT RH (MLDA, DA.REG, .DST); 

WRT RH (MLBA. BA REG, .SRC); 
WRT.RH (MLCS1, FONC, FUNC.4); 

if .ML.ADDR CMLCS1, SCJ 
then 

begin 


! Clear the mass bus 

(Disable error correction 

(Select the divice under test 

(Load the transfer size 

(Load the destination address 

(Load the source address 

(Load a write check function with go set 

(Does the transfer cause a sc error 


(We expect the write check bit to be set 


if not .ML.ADDR CMLCS2, WCE3 
then 

Er 8 s? (ERR 13, UNX DRV ERR MSG, DUMPER): (Report the unexpected error 

PRJNTB (ONE MSG, wT CHR XFER MSG); (Print what transfer caused the error 

DODU (.LfUNlT); " (Drop this unit 

DOCLN; (Jump to the clean 14 ) code 

end; 


Page 59 
SEO 0094 



BSKEL4 

REV B PATCH 00 

2618 

2619 

2620 
2621 
2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 


ROUTINE DECLARATIONS 
end; 
do 

0 

until .ML.ADDR CHLDS. DRVJ; 

if .ML.ADDR [MLCS1, SC J 
then 

begin 
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IDelay for transfer to complete 


!Did the transfer cause a sc error 


!Ue expect the write check bit to be set 


if not .ML ADDR CMLCS2, WCEJ 
then 

begin 

ERRS F (ERR 13. UNX DRV ERR MSG, DUMPER); 

PRINTS (ONF MSG. UT CHR XFFR MSG); ! Print whi 
DODU (.LSUNlT); " !Drop this unit 

DOCLN; !Jump to the clean up code 

end; 

end; 


.'Report the unexpected error 
cn function caused the error 


end; 


.SSTTL URT.CHK.TRANSFE ROUTINE DECLARATIONS 


003140 

010146 



WRT.CHK.TRANSFE 








MOV 

RI.-(SP) 

• 


003142 

162706 

000032 


SUB 

*32. SP 



003146 

016700 

040374' 


MOV 

ML.ADDR.RO 

0 


003152 

016066 

000010 

000030 

MOV 

10(R0).30(SP) 

0 

*.ML.R£G 

003160 

016601 

000030 


MOV 

30($P),R1 

0 

ml.reg.mlreg 

003164 

152701 

000040 


BISS 

#40, R1 

9 

*.MLREG 

003170 

0167C0 

040374' 


MOV 

ML.ADDR.RO 



003174 

010160 

000010 


MOV 

RI.IO(RO) 

• 

0 

HLREG,* 

003200 

016700 

040374' 


MOV 

ML.ADDR.RO 



003204 

016066 

000010 

000026 

MOV 

10(R0) ,*6(SP) 

9 

*,ML.REG 

003212 

016601 

000026 


MOV 

26(SP),R1 

0 

ML.REG.MLREG 

003216 

016700 

040400' 


MOV 

ML.DUT.RO 



003222 

042700 

177770 


BIC 

#177776, RO 



003226 

142701 

000007 


BICB 

#7,R1 

0 

*.MLREG 

003232 

050001 



BIS 

R0.R1 

• 

• 

*.MLREG 

003234 

016700 

040374' 


MOV 

ML.ADDR.RO 



003240 

010160 

000010 


MOV 

R1.10(R6) 

• 

0 

MLREG,* 

003244 

016700 

040374' 


MOV 

ML.ADDR.RO 

• 

9 


003250 

016066 

000024 

000024 

MOV 

24(R0),24(SP) 

9 

»,ML.REG 

003256 

01 6601 

000024 


MOV 

24(SP).R1 

0 

ML.REG.MLREG 

003262 

152701 

000002 


BIS6 

#2,R1 

• 

9 

•.MLREG 

003266 

016700 

040374' 


MOV 

ML.ADDR.RO 



003272 

010160 

000024 


MOV 

R1 ,24 (R6) 

0 

HLREG. • 

003276 

016700 

040374* 


MOV 

ML.ADDR.RO 

• 

0 


003302 

016066 

000010 

000022 

MOV 

10(R0),22(SP) 

* 

0 

•.ML. REG 

003310 

016601 

000022 


MOV 

22(SP) ,R1 

0 

ML.REG.MLREG 


2566 

2567 


2598 


2599 


BSKEL4 





REV B PATCH 00 

ROUTINE 

DECLARATIONS 


003314 

016700 

040400' 


MOV 

003320 

042700 

177770 


B1C 

003324 

142701 

000007 


B1CB 

003330 

050001 



BIS 

003332 

016700 

040374' 


MOV 

003336 

010160 

000010 


MOV 

003342 

016700 

040374' 


MOV 

003346 

016066 

000002 

000020 

MOV 

003354 

016601 

000C42 


MOV 

003360 

016700 

040374' 


MOV 

003364 

010160 

000002 


MOV 

003370 

016700 

040374' 


MOV 

003374 

016066 

000006 

000016 

MOV 

003402 

016601 

000040 


MOV 

003406 

016700 

040374' 


MOV 

003412 

010160 

000006 


MOV 

003416 

016700 

040374' 


MOV 

003422 

016066 

000004 

000014 

MOV 

003430 

016601 

000036 


MOV 

003434 

016700 

040374' 


MOV 

003440 

010160 

000004 


MOV 

003444 

017766 

040374' 

000012 

MOV 

003452 

016600 

000012 


MOV 

003456 

142700 

000077 


B1C8 

003462 

152700 

000051 


eise 

003466 

010077 

040374' 


MOV 

003472 

017766 

040374' 

000010 

MOV 

003500 

100033 



BPL 

003502 

016700 

040374* 


MOV 

003506 

016066 

000010 

000006 

MOV 

003514 

032766 

040000 

000006 

BIT 

003522 

001022 



BNE 

003524 

104454 



TRAP 

003526 

000015 



.WORD 

003530 

002310' 



.WORD 

003532 

000000' 



.WORD 

003534 

012746 

002474' 


MOV 

003540 

012746 

002556' 


MOV 

003544 

012746 

000002 


MOV 

003550 

010600 



MOV 

003552 

104414 



TRAP 

003554 

016700 

0000006 


MOV 

003560 

104451 



TRAP 

003562 

104444 



TRAP 

003564 

062706 

000006 


ADD 

003570 

016700 

040374' 


IS: MOV 

003574 

016066 

000012 

000004 

MOV 

003602 

105766 

000004 


TSTB 

003606 

100370 



BPL 

003610 

017766 

040374' 

000002 

MOV 

003616 

100031 



BPL 

003620 

016700 

040374' 


MOV 


F 8 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 

ML.DUT.RO 
#1 77776. R0 
A7.R1 
R0.R1 

ml.addr.ro 

R1.10(r6) 

ml.addr.ro 

2(R0).20(SP> 

42(SP) ,R1 
ML.ADDR.RO 
R1 ,2(R0) 

ML.ADDR.RO 

6(R0),16(SP) 

40(SP) ,R1 

ML.ADDR.RO 

R1.6(R0> 

ML.ADDR.RO 

4(R0),14(SP> 

36(SP) ,R1 
ML.ADDR.RO 
R1 , 4 < RO 5 

BML.ADDR.12(SP) 

12(SP).R6 

A77.R0 

A51.R0 

R0.8ML.ADDR 

BNL.ADDR.IO(SP) 

1$ 

ML.ADDR.RO 

10(R0).6(SP) 

A40000,6(SP) 

IS 

54 

15 

UNX. DRV. ERR. MSG 
DUMPER 

AWT.CHK.XFER.MSG.-(SP) 

AOME.MSG.-(SP) 

A 2,-<SP> 

SP.RO 

14 

LSUN1T.R0 

51 

44 

A6.SP 

ML.ADDR.RO 
12(R0) ,4(SP) 

4(SP) 

15 

iML.ADDR,2(SP) 

2S 

ML.ADDR.RO 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI . 1 (16) 


•.MLREG 
*, MLREG 

MLREG.* 

* .ML. REG 
S1ZE.MLREG 

MLREG.* 

•.ML.REG 
DST. MLREG 

MLREG.* 

*.ML.REG 
SRC .MLREG 

MLREG.* 

•.ML.REG 

ML.REG.MLREG 

*. MLREG 

*. MLREG 

MLREG.* 

•.ML.REG 


•.ML.REG 

•.ML.REG 


SP.* 


; ‘.ML.REG 
; ML.REG 

; *.ML.REG 
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2600 

2601 

2602 

2603 

2605 

2609 

2612 

2613 


2614 


2611 

2622 


2624 

2628 
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003624 

003630 

003634 

003636 

003640 

003642 

003644 

003646 

003652 

003656 

003662 

003664 

003666 

003672 

003674 

003676 

003702 

003706 

003710 


016016 

032716 

001022 

104454 

000015 

002310* 

000000 * 

012746 

012746 

012746 

010600 

104414 

016700 

104451 

104444 

062706 

062706 

012601 

000207 


000010 

040000 


002474* 

002556* 

000002 


OOOOOOG 


000006 

000032 


2 $: 


G 8 

18-Nar-19§2 16:07:57 
18-Nar-1982 15:44:41 

NOV 10<R0MSP> 

81 T #40000. (SP> 

BNE 2$ 

TRAP 54 

.WORD 15 

.WORD UNX.DRV.ERR.NSG 

.WORD DUMPER 

NOV #WT.CHK.XFER.MSG,-<SP> 

NOV #0NE.MSG.-(SP> 

NOV #2,-(SP> 

NOV SP.RO 

TRAP 14 

NOV LfUNIT.RO 

TRAP 51 

TRAP 44 

ADD #6.SP 

ADD #32. SP 

NOV <SP)*.R1 

RTS PC 


; Routine Size: 181 words 
; Maximum stack depth per invocation: 


17 words 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>PMSXL4.BU.1 (16) 

; *,ML.REG 
; «.ML.REG 


; SP,* 


Page 62 
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2631 

2632 


2633 


2630 

2566 


I 


I 
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2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 
2661 
2662 

2663 

2664 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 
2681 
2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 


H 8 

18-Mar-1982 16:07:57 TOPS-20 Bliss-16 V2<212> 

ROUTINE DECLARATIONS 18-Mar-1982 15:44:41 PA:<NEALE>PMS»CL4.BlI . 1 (17) 

routine WRT TRANSFER (SIZE, DST, SRC) : novalue = 
begin 


Functional Description: 

This global routine will perform a write transfer 
at the designated buffer and sector address. 

Formal Parameters: 

SIZE: 

Stores the size of the transfer 

BUFFER: 

Write buffer address where data is 
coming from or going to. 

SECTOR: 

ML-11 desired sector address where data 
is coming from or going to. 

Implicit Inputs: 
none 

Implicit Outputs: 
none 

Completion codes: 
none 

Side Effects: 
none 


CLR MBUS" 

WRTlRH (MLCS2, DRV SEl. .ML OUT); 
WRT.RH (MLWC. WC.REG, .SIZET; 
WRT.RH (MLDA. DA REG, .DST); 
WRT.RH (MLBA, BA REG. .SRC); 
WRT.RH (MLCS1. FONG. FUNC.5); 


! Clear the mass bus 

!Select the divice under test 

!Load the transfer size 

!Load the destination address 

!Load the source address 

!Load a write function with go set 


if .ML.ADDR CMLCS1 . SC J 
then 


begin 

ERRSF (ERR.13. UNX DRV. ERR MSG. 
PRINTS (ONE MSG. U«T X?ER «SG); 
DODU (.LSUNlT); 

DOCLN; 

end; 


!Does the transfer cause a sc error 


DUMPER); .'Report the unexpected error 

JPrint which function caused the error 
!Drop this unit 
.'Jump to the clean up code 


do IDelay for transfer to complete 

until .ML.ADDR CMLDS, DRY}; 
if .ML.ADDR CMLCS1 , SC3 


Page 63 
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!Did the transfer cause a sc error 
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I 8 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 



2692 

then 






2693 


begin 






2694 


ERRSF 

[ERR 13, UNX DR V ERR MSG . 

DUMPER); 

.'Report the unexpected error 


2695 


PRINTP 

(ONF MSG. WRT xFER ASG); 

[Report which function 

caused the error 


2696 


DODU ( 

LSI*!!); 

[Drop 

this unit 



2697 


DUCLN; 


[Jump 

to the clean up 

code 


2698 


end; 






2699 








2700 

end, 










.sbttl 

WRT. TRANSFER ROUTINE DECLARATIONS 

003712 

010146 



WRT. TRANSFER : 







MOV 

R1,-(SP) 


# 

003714 

162706 

000024 

040374* 


SUB 

#24. SP 



003720 

016700 


MOV 

ML.ADDR.RO 

10(R0),22(SP) 


• 

003724 

016066 

000010 

000022 

MOV 


; *.ML.REG 

003732 

016601 

000022 


MOV 

22(SP) ,R1 


; ML.REG.MLREG 

003736 

152701 

000040 


BISS 

#40. R1 


; *. MLREG 

003742 

016700 

040374* 


BOV 

ML.ADDR.RO 

RI.IO(RO) 



003746 

010160 

000010 


MOV 


; MLREG.* 

003752 

016700 

040374* 


MOV 

ML.ADDR.RO 

10(RO),20(SP) 


; *.ML.REG 

003756 

016066 

000010 

000020 

MOV 


003764 

016601 

000020 


NOV 

20(SP) ,R1 


; ML.REG.MLREG 

003770 

016700 

040400' 


MOV 

ML.DUT.RO 
#1 77770.RO 



003774 

042700 

177770 


BIC 



004000 

142701 

000007 


BIC8 

#7,R1 


; *.MLREG 

004004 

050001 



BIS 

R0.R1 


; *.MLREG 

004006 

016700 

040374' 


MOV 

ML.ADDR.RO 

RI.IO(RO) 



004012 

010160 

000010 


MOV 


; NLREG,* 

004016 

016700 

040374* 


MOV 

ML.ADDR.RO 

10(R0).16(SP) 


# 

004022 

016066 

000010 

000016 

MOV 


; *.ML.REG 

004030 

016601 

000016 


MOV 

16(SP),R1 


; ML.REG.MLREG 

004034 

016700 

040400’ 


MOV 

ML.DUT.RO 
#1 77776, RO 



004040 

042700 

177770 


BIC 



004044 

142701 

000007 


BIC8 

S7.R1 


; *.MLREG 

004050 

050001 



BIS 

R0.R1 


; *.MLREG 

004052 

016700 

040374* 


MOV 

ML.ADDR.RO 

RI.IO(RO) 



004056 

010160 

000010 


MOV 


; MLREG.* 

004062 

016700 

040374* 


MOV 

ML.ADDR.RO 

2(R0).T4(SP) 

34<SPf,R1 

ML.ADDR.RO 

R1 ,2(R0) 


0 

004066 

016066 


000014 

MOV 


; *.ML.REG 

004074 

016601 

000034 


MOV 


; SIZE .MLREG 

004100 

016700 

040374* 


MOV 



004104 

010160 

000002 

040374* 


MOV 


; MLREG.* 

004110 

016700 


MOV 

ML.ADDR.RO 

6(R0).12(SP) 


; *.ML.REG 

004114 

016066 


000012 

MOV 


004122 

016601 

000032 


MOV 

32<SP).R1 


; DST. MLREG 

004126 

016700 

040374' 


MOV 

ML.ADDR.RO 

R1,6(R0) 


; MLREG.* 

004132 

010160 



MOV 


004136 

016700 

040374* 


MOV 

ML.ADDR.RO 
4(RO).10(SP) 
30csp5 ,ri 


; *.ML.REG 

004142 

016066 


000010 

NOV 


004150 

016601 

000030 


MOV 


; SRC. MLREG 


Page 
SEO 0099 


2640 

2641 


2672 


2673 

2674 

2675 
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18-Mar-1982 15:44:41 

PA:<NEALE>PMSKL4.8LI.1 (17) 

SEO 0100 

004154 

016700 

040374* 

MOV 

ML.ADDR.RO 

R1 ,4(R0) 



004160 

010160 

000004 

040374* 000006 

MOV 

; MLRE6,* 

2676 

004164 

017766 

MOV 

8ML.ADDR.6(SP) 

; *,ML.RE6 

004172 

016600 

000006 

MOV 

6(SP).R0 
#77, R6 

; ML.RE6.MLRE6 


004176 

142700 

000077 

BICB 

; *,MLRE6 


004202 

152700 

000061 

040374* 

040374* 000004 

BISB 

#61. RO 

; *,MLRE6 


004206 

010077 

MOV 

R0.3ML.ADDR 

; MLRE6,* 

2678 

004212 

017766 

MOV 

3ML.ADDR,4(SP) 

; *,ML.RE6 

004220 

100022 


BPL 

IS 


2681 

004222 

104454 


TRAP 

54 


004224 

000015 

002310* 

000000* 


.WORD 

15 



004226 


.WORD 

UNX.DRV.ERR.MS6 



004230 


.WORD 

DUMPER 



004232 

012746 

002422* 

MOV 

#WRT.XFER.MS6.-(SP) 

#0NE.MS6, -(SP) 

« 

2682 

004236 

012746 

002556* 

MOV 



004242 

012746 

000002 

MOV 

#2.-(SP> 



004246 

010600 


MOV 

SP.RO 

; SP.* 


004250 

104414 


TRAP 

1 4 


2683 

004252 

016700 

0000006 

MOV 

lsunit.ro 

# 

004256 

104451 


TRAP 

51 



004260 

104444 


TRAP 

44 


2680 

004262 

062706 

000006 

040374* 

ADD 

#6 ,SP 

• 

004266 

016700 

1$: MOV 

ML.ADDR.RO 

12(R0).2(SP) 

9 

2689 

004272 

016066 

000012 000002 

MOV 

; *.ML.RE6 


004300 

105766 

000002 

TSTB 

2<SP> 

; ML.RE6 


004304 

100370 


BPL 

IS 


2691 

004306 

017716 

040374* 

MOV 

BML.ADDR.(SP) 

; *,ML.RE6 

004312 

100022 


BPL 

2$ 


2694 

004314 

104454 


TRAP 

54 

9 

004316 

000015 

002310* 


.WORD 

15 



004320 


.WORD 

UNX.DRV.ERR.MS6 



004322 

000000* 


.WORD 

OUMPER 


2695 

004324 

012746 

002422* 

MOV 

#WRT.XFER.MS6.-<SP> 

9 

004330 

012746 

002556* 

MOV 

#0NE.MS6,-(SP> 



004334 

012746 

000002 

MOV 

#2,-(SP) 



004340 

010600 


MOV 

SP.RO 

; SP.* 


004342 

104414 


TRAP 

14 


2696 

004344 

016700 

0000006 

MOV 

LSUNIT.RO 

• 

9 

004350 

104451 


TRAP 

51 



004352 

104444 


TRAP 

44 


2693 

004354 

062706 

000006 

ADD 

#6 .SP 

• 

• 

004360 

062706 

000024 

2$: ADD 

#24. SP 
(SPW.RI 

• 

2640 

004364 

012601 


MOV 



004366 

000207 


RTS 

PC 



; Routine Size: 

151 words 





; Maximum stack 

depth per invention: 

14 words 
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2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 


K 8 

18-Mar-1982 16:07:57 T0PS-20 Bliss-16 V2(212) 

ROUTINE DECLARATIONS 18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.BLI.1 (18) 

routine RD TRANSFER (SIZE. DST, SRC) : novalue = 
begin 


Functional Description: 

This global routine performs a read transfer at the 
designated buffer and source addresses. 

Formal Parameters: 

Stores the size of the transfer 

BUFFER : 

Write buffer address where data is 
coming from or going to. 

SECTOR: 

ML-1 1 desired sector address where data 
is coming from or going to. 

Implicit Inputs: 
none 

Implicit Outputs: 
none 

Completion codes: 
none 

Side Effects: 
none 


CLR.MBUS; 

ECC.DIS (ENABE); 

WRT.RH (MLCS2. DRV SEL, .ML DUT); 
WRT RH (MLWC. UC RpG, .SIZET; 
WRT’RH (MLDA, DA REG. .SRC); 

WRT RH (ML8A. BA'REG. .DST); 

WRT RH (MLCS1. FONC. FUNC.6); 


! Clear the mass bus 
iDisable error correction 
.'Select the divice under test 
!Load the transfer size 
!Load the source address 
!Load the destination address 
!load a read function with go set 


if .ML ADDR CHLCS1. SCJ !Does this function cause a sc error 

then 

ER?SF (ERR 13. UNX DRV ERR MSG. DUMPER); IReport the unexpected error 

PRINTB (ONE MSG, RC XFpR M5G); IReport which function cause the error 

DODU (.LiUNlT); * !Drop this unit 

DOCLN; .'Jump to the clean up code 

end; 


do 

0 

until .ML .ADDR CMLDS, DRYJ; 
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IDelay for the trans*er to complete 
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2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 


if .Ml.ADDR CMLCS1. SC] 
then 

ErSsf (ERR 13, UNX DRV ERR MSG, 
PRINTS ((INF MSG. RB XFFR M$G); 
DODU (.LSUNlT); 

DOCLN; 

end; 


004370 010146 


004372 

004376 

004402 

004410 

004414 

004420 

004424 

004430 

004434 

004442 

004446 

004452 

004456 

004462 

004464 

004470 

004474 

004500 

004506 

004512 

004516 

004522 

004526 

004532 

004540 

004544 

004550 

004554 

004560 

004562 

004566 

004572 

004576 

004604 

004610 

004614 

004620 


162706 

016700 

016066 

016601 

152701 

016700 

010160 

016700 

016066 

016601 

016700 

042700 

142701 

050001 

016700 

010160 

016700 

016066 

016601 

152701 

016700 

010160 

016700 

016066 

016601 

016700 

042700 

142701 

050001 

016700 

010160 

016700 

016 06t> 
016601 
016700 
010160 
016700 


000026 
040374 ' 

000010 000024 
000024 
000040 
040374* 

000010 

040374* 

000010 000022 
000022 
040400* 

177770 

000007 

040374* 

000010 

040374* 

000024 000020 
000020 
000002 
040374* 

000024 

040374* 

000010 000016 

00C016 

040400' 

177770 


040374* 

000010 

040374* 

000002 

000036 

040374* 

000002 

040374* 


000014 


.S8TTL 

RD. TRANSFER: 
MOV 

sue 

MOV 

MOV 

MOV 

BISS 

MOV 

MOV 

MOV 

NOV 

MOV 

MOV 

BJC 

BICB 

BIS 

MOV 

MOV 

MOV 

MOV 

MOV 

BISS 

NOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIC 

BICB 

BIS 

NOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 
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DECLARATIONS 

004624 

016066 

000006 

000012 

004632 

016601 

000032 

040374* 


004636 

016700 


004642 

010160 

000006 

040374* 


004646 

016700 

000010 

004652 

016066 

000004 

004660 

016601 

000034 
040374 ' 


004664 

016700 


004670 

010160 

000004 

040374* 

000006 

004674 

017766 

004702 

016600 

000006 


004706 

142700 

000077 


004712 

152700 

000071 


004716 

010077 

040374* 

040374* 


004722 

017766 

000004 

004730 

100022 



004732 

104454 



004734 

004736 

000015 

002310* 



004740 

000000* 



004742 

012746 

002352* 

002556* 


004746 

012/46 


004752 

012746 

000002 


004756 

010600 



004760 

104414 



004762 

016700 

OOOOOOG 


004766 

104451 



004770 

104444 



004772 

062706 

000006 


004776 

016700 

040374' 

000002 

005002 

016066 

000012 

005010 

105766 

000002 


005014 

100370 

040374' 


005016 

017716 


005022 

100022 



005024 

104454 



005026 

000015 



005030 

002310* 



005032 

000000' 

002352* 


005034 

012746 


005040 

012746 

002556* 


005044 

012746 

000002 


005050 

010600 



005052 

104414 



005054 

016700 

OOOOOOG 


005060 

104451 



005062 

104444 



005064 

062706 

000006 


005070 

062706 

000026 


005074 

012601 



005076 

000207 




M 8 

18-Mar-1982 16:07:57 

18-Mar-1982 15:44:41 

MOV 6(R0).12(SP> 

MOV 32(SP; ,R1 

MOV ML.ADDR RO 

MOV R1,6(R0) 

MOV ML.ADDR.RO 

MOV 4(R0).10(SP) 

MOV 34(SP).R1 

MOV ML.ADDR.RO 

MOV R1,4(R0> 

MOV 3ML.ADDR,6(SP> 

MOV 6(SP).R0 

BIOS #77. RO 

BIS8 #71 .RO 

MOV RO.BML.ADDR 

MOV 8ML.ADDR,4(SP) 

BPL 1$ 

TRAP 54 

.WORD 15 

.WORD UNX. DRV. ERR. MSG 

.WORD DUMPER 

MOV #RD.XFER.MSG.-(SP> 

MOV #ONE.MSG,-(SP) 

MOV #2.-(SP) 

MOV SP.RO 

TRAP 14 

MOV LJUNIT.RO 

TRAP 51 

TRAP 44 

ADD #6 ,SP 

MOV ML.ADDR.RO 

MOV 12(R0).2(SP) 

TSTB 2(SP) 

BPL 1$ 

MOV BML.ADDR, (SP) 

BPL 2$ 

TRAP 54 

.WORD 15 

.WORD UNX. DRV. ERR. MSG 

.WORD DUMPER 

MOV #RD.XFER.MSG.-(SP) 

MOV #ONE.MSG.-(SP) 

MOV #2.-(SP) 

MOV SP.RO 

TRAP 14 

MOV LJUNIT.RO 

TRAP 51 

TRAP 44 

ADD #6.SP 

ADD #26. SP 

MOV (SP) +.R1 

RTS PC 


TOPS-20 Bliss-16 V2(212> 
PA:<NEALE>PMSXL4.BLI.1 (18) 

; *,ML.REG 
; SRC.MLREG 

; MLREG.* 

; *,ML.REG 
; DST.MLREG 

; MLREG,* 

; *,ML.REG 
; ML.REG.MLREG 
; * .MLREG 
; *, MLREG 
; MLREG.* 

; *,ML.REG 


SP,* 


; *,ML.REG 
; ML. REG 

; * .ML. REG 


SP.* 


Page 68 
SEQ 0103 


2737 

2738 


2740 

2743 

2744 


2745 


2742 

2751 


2753 

2756 

2757 


2758 

2755 

2701 


i 



BSKEL4 

REV B PATCH 00 


ROUTINE DECLARATIONS 


; Routine Size: 164 words 

; Maximum stack depth per invocation: 15 words 


N 8 

18-Mar-1982 16:07:57 T0PS-20 Bliss-16 V2<212> 

18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.8LI .1 (18) 


Page 69 
SEQ 0104 


BSKEL4 

REV B PATCH 00 ROUTINE DECLARATIONS 


B 9 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 


TOPWO Bliss-16 V2(212) 
PA:<NEALE^PMSKL4.BLI.1 (19) 


Page 70 
SEQ 0105 


2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 


routine I„CHIP_TBL : novalue = 
begin” 


Functional Description: 

The chip table stores for a tested 
bank all the nos ram chip numbers 
which have data errors within them. 

This routine when called will init 
this table of all previous bad chip 
entries. 

Formal Parameters: 
none 

Implicit Inputs: 

CHlPjrei 

Implicit Outputs: 

The chip table is loaded with zeros. 

Completion codes: 
none 

Side Effects: 
none 


I Loop through all table locations 
and initialize the location to 


zero. 


incr TBL INDEX from 0 to 38 do 
CHIP. TBL C.TBL.INDEX, ALLJ 


= ZEROES; 


Unitialize the bad chip table 


005100 010146 

005102 005000 
005104 010001 
005106 006301 
005110 005061 030230' 
005114 005200 
005116 020027 000046 
005122 003770 
005124 012601 


I. CHIP. TBL: 
MOV 


, SBTTL I. CMP. TBL ROUTINE DECLARATIONS 


R1.-CSP) 

RO 

R0.R1 

R1 

CHIP.TBL(RI) 

RO 

R0,#46 

IS 

(SP)*,R1 


TBL. INDEX 
TBL. INDEX,* 


; TBL. INDEX 
; TBL. INDEX.* 


BSKEL4 

REV B PATCH 00 


ROUTINE DECLARATIONS 


005126 000207 RTS 

; Routine Size: 12 words 

; Maximum stack depth per invocation: 2 words 


PC 


C 9 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 


TOPS-20 Bliss-16 V2 (21 2> 
PA:<NEALE>PMSkL4.BLI.1 (19) 


Page 71 
SEQ 0106 


i 


BSKEL4 

REV B PATCH 00 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 
2811 
2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 


0 9 

18-Nar-1982 16:07:57 TOPS-20 Bliss-16 V2<212) 

ROUTINE DECLARATIONS 18-Mar-1982 15:44:41 PA:<NEALE>PNSia4.BlI . 1 (20) 

routine I_TNPJ3LST_T8L : novalue = 
begin* 


Functional Description: 

There are two tables which stores the 
needed information necessary for prom 
maintenance and they are the 'blast table' 
and the 'tempory blarr table*. 

The tempory blast table holds the bad row. 
column, nibble and chip information until 
it can be transfered into the main blast table. 

This routine when called will clear this temp 
to all zeros. 

Formal Parameters: 
none 

Implicit Inputs: 

TNP.BLST.TBL 

Implicit Outputs: 

The tempory blast table is loaded 
with zeros 

Completion codes: 
none 

Side Effects: 
none 


; ♦ 

! Index through the temporary blast 
table and initialize its locations 
! to all zeros. 

incr TBL INDEX from 0 to 9 do Unitialize the temporary blast table 

TNP.fiLST.TBL C.TBL.INDEX, FULL.WRD3 = ZEROES; 


end; 


005130 010146 

005132 005000 
005134 010001 
005136 006301 


.SBTTL 

I.TNP.8LST.TBL: 

NOV 

CLR 

II: NOV 

ASL 


I.TNP.BLST.TBL ROUTINE DECLARATIONS 
RI.-(SP) 

RO ; TBL. INDEX 

RO.Rl ; TBL. INDEX.* 

R1 


Page 72 

SEO 0107 


2802 

2842 

2843 


E 9 


8SKEL4 




18-Mar-1982 16:07:57 
18-Mar- 1982 15:44:41 

T0PS-20 Bliss-16 V2(212) 

REV B PATCH 00 

ROUTINE DECLARATIONS 


PA:<NEALE>PMSkL4.BLl.1 (20) 

005140 

005061 

030346* 

CLR 

TNP.8LST.TBKR1) 


005144 

005200 


INC 

RO 

; TBL. INDEX 

005146 

005152 

020027 

003770 

000011 

CMP 

BLE 

R0.A11 

IS 

; TBL. INDEX.* 

005154 

012601 


MOV 

($P)*. R1 

• 

005156 

000207 


RTS 

PC 


; Routine Size: 

12 words 




; Maximum stack 

depth per invocation: 

2 words 




Page 7 3 
SEQ 0108 


2842 


2802 


B5KEL4 

Rf V B PATCH 00 ROUTINE DECLARATIONS 


TOPS-20 BlTss-16 V2(212) 
PA:<NEALE>PM$KL4.BLI.1 (21) 


2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 
2861 
2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 
2881 
2882 
2883 


F 9 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 


routine I_COL_CNT_TBL : novalue = 
begin 


Functional Description: 

The column count table stores the number 
of times a particular column number has 
failed with any failing row number. 

This routine when called will init this 
table to all zeros. 

Formal Parameters: 
none 

Implicit Inputs: 

COL.CNT.TBL 

Implicit Outputs: 

The column count table is loaded with zeros 

Completion codes: 
none 

Side Effects: 
none 


Index through all locations in the 
column count table and initialize 
the locations to all zeros. 


incr TBL INDEX from 0 to 255 do 

COL_CNT_TBL C.TBL.INDEX3 = ZEROES; 


{Initialize the column count table 


end; 


Page 74 
SEO 0109 





.S8TTL 

I.COL.CNT.TBL ROUTINE 

DECLARATIONS 


005160 

005000 


I.C0L.CNT.T8L: 







CLR 

RO 

; TBL. INDEX 

2880 

CC5162 

105060 

001002* 

IS: CLRB 

COl.CNT.TBKRO) 

; * (TBL. INDEX) 

2881 

005166 

005200 


INC 

RO 

; TBL. INDEX 

2880 

005170 

020027 

000377 

CMP 

R0.#377 

; TBL. INDEX.* 


005174 

003772 


BtE 

1$ 



005176 

000207 


RTS 

PC 

a 

2846 


; Routine Size: 8 words 

; Maximum stack depth per invocation: 0 words 


BSKEL4 

REV B PATCH 00 


2884 

2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 

2901 

2902 

2903 

2904 

2905 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 


ROUTINE DECLARATIONS 

routine I REM TBL : novalue = 
begin 


G 9 

18-Mar- 1 982 16:07:57 T0PS-20 Bliss-16 V2(212> 

18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.BLI .1 (22) 


Functional Description: 

The remainder table stores all the 
single cell failing rows and columns 
addresses within a failing M0S chip 
that has not yet been blasted. 

The copied remainder table is a copy of 
the remainder table and is used in determining 
row addresses for blasting. The remainder table 
is used in determing column addresses for blasting. 

This routine when called will init these 
tables to all zeros. 

Formal Parameters: 
none 

Implicit Inputs: 

REM.TBL . COPI ED.REM.TBL 

Implicit Outputs: 

Both tne remainder table and the copied 
remainder tables are loaded with zeros. 

Completion codes: 
none 

Side Effects: 
none 


Index through the remainder table 
and the copied remainder table and 
initialize thier locations to zeros. 


’’ncr TBL INDEX from 0 to 99 do 
begin 
REM 


! Initialize the remainder and copied rem table 


... .TBL C. TBL INDEX, R0.CL3 = ZEROES; 
COPlED.REM.TBC E.TBL.INBEX, R0.CLJ * ZEROES; 
end; 


end; 


005200 010146 


.SBTTL I. REM. TBL ROUTINE 0E CLARA 1 IONS 
I. REM.TBL: 


Page 75 

SEQ 0110 


BSKEL4 

REV B PATCH 00 


005202 

005204 

005206 

005210 

005214 

005220 

005222 

005226 

005230 

005232 


005000 

010001 

006301 

005061 

005061 

005200 

020027 

003766 

012601 

000207 





H 9 






18-Mar-1982 16:07:57 

T0PS-20 Bliss-16 V2(212> 

Page 76 

routine declarations 



18-Har-1982 15:44:41 

PA:<NEALE>PMSKL4.BLI .1 (22) 

SEO 0111 



MOV 

RI.-(SP) 

0 

2884 



CLR 

RO 

; TBL. INDEX 

2925 


1$: 

MOV 

R0.R1 

; TBL. INDEX.* 

2927 



ASL 

R1 



001402' 


CLR 

REM.TBL(RI) 



001712' 


CLR 

COPIED. REM. TBL(RI) 

0 

2928 



INC 

RO 

; TBL. INDEX 

2925 

000143 


CMP 

R0.#143 

; TBL. INDEX,* 




8LE 

1$ 





MOV 

(SPI+.R1 

0 

2884 



RTS 

PC 




; Routine Size: 14 words 

; Maximum stack deptn per invocation: 2 words 


I 0 

BSKEL4 18-«ar-1982 16:07:57 T0PS-20 Bliss-16 V2(212> 

REV 8 PATCH 00 ROUTINE DECLARATIONS 18-Rar-1982 15:44:41 PA:<NEALE>PNSKL4.BLI . 1 (23) 


2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 


routine I.COL.PTR : novalue = 
begin 


Functional Description: 

The column pointer table points to locations 

in the column count table which have been 

incremented during the present row number being 

searched for failures greater than 10 in the 

error map. If this row is determined to be all bad (greater 

than 10 failures) then this row number is entered 

into the temp blast table and the count of 

adjacent failing columns in the column count 

table must be decrimented via this pointer table 

which is pointing to their respective table locations. 

This routine when called will clear this column 
pointer count table to zero. 

Formal Parameters: 
none 

Implicit Inputs: 

COL.PTR 

Implicit Outputs: 

The column pointer table is loaded 
with zeros. 

Completion codes: 
none 

Side Effects: 
none 


! ♦ 

: Index through the column pointer 
! table and initilaize the locations 
! to zero. 

i - 

incr TBL INDEX from 0 to 9 do .'Initialize the column pointer table 

COL.PTR [.TBL. INDEX} = ZEROES; 

end; 


005234 005000 
005236 105060 002222* 


.S8TTL I. COL.PTR ROUTINE DECLARATIONS 
I. COL.PTR: 

CLR R0 ; TBL. INDEX 

1$: CLRB COL.PTR(RO) ; *(TBL. INDEX) 


Page 77 
SEO 0112 


2974 

2975 



BSK.EL4 

REV B PATCH 00 ROUTINE DECLARATIONS 

005242 005200 
005244 020027 000011 
005250 003772 
005252 000207 


INC 


CMP 


BLE 

RTS 


; Routine Size: 8 words 

; Maximum stack depth per invocation: 0 words 


RO 

R0,#1 1 
1 $ 

PC 


■> 


J 9 

18-Mar-1982 16:07:57 70PS-20 Bliss-16 V2(212) Page 78 

18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.8LI.1 (23) SEQ 0113 

; T8L. INDEX 2974 

; T8L. INDEX,* 

; 2932 


BSKEL4 

REV B PATCH 00 

2978 

2979 

2980 

2981 

2982 

2983 

2984 

2985 
2984 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 
2908 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 


ROUTINE DECLARATIONS 

routine I ERROR.MAP : 
begin" 


K 9 

18-Mar-198< 

18-Mar-198< 


16:07:57 

15:44:41 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (24) 


Page 79 
SEQ 0114 


novalue = 


♦♦ 

Functional Description: 

The error map stores by sector and 
row number all of the detected failures 
within a tested mos chip. From this 
map of the failing chip row or column 
addresses can be chosen for masking the 
error out. 

This routine when called will ini t the 
error map to all zeros. 

Formal Parameters: 
none 

implicit Inputs: 

ERR0R.MAP 

Implicit Outputs: 

The error map is loaded with zeros. 

Completion codes: 
none 

Side Effects: 
none 


* 

Loop through all the blocks and words 
in the error map structure and load the 
locations up with zeros. 

incr TBL INDEX from 0 to Xo'17776' by Xo'2' do 
(ERROR.HAP ♦ .TBL.INDEX) = ZEROES; 

end; 


ilntialize the error map 


005254 005000 

005256 005060 010230* 
005262 062700 000002 
005266 020027 017776 
005272 003771 
005274 000207 


I. ERROR. NAP: 
CLR 

IS: CLR 

ADD 
CMP 
BLE 
RTS 


.S8TTL I. ERROR. MAP ROUTINE DECLARATIONS 


RO 

ERROR. MAP(RO) 

M2.R0 

RO. #17776 

IS 

PC 


TBL. INDEX 
*< TBL. INDEX) 
*. TBL. INDEX 
TBL. INDEX.* 


3015 

3016 
3015 


2978 


L 



Page 80 
SEC 0115 


L 9 

dckp ,/ 18-Mar-1982 16:07:57 TOPS-20 Bliss-16 V2<212> 

REV B PATCH 00 ROUTINE DECLARATIONS 18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.BLI . 1 (24) 

; Routine Size: 9 words 

; Maximum stack depth per invocation: 0 words 


BSKEL4 

REV B PATCH 00 

; 3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

; 3029 

3030 

3031 

3032 

3033 

3034 

; 3035 

3036 

3037 

3038 

3039 

; 3040 

3041 

; 3042 

; 3043 

; 3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

; 3054 

3055 


ROUTINE DECLARATIONS 

routine I BLAST TBL : novalue = 
begin" 


M 9 

18-Mar- 1982 16:07:57 
18-Mar- 1982 15:44:41 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (25) 


Page 81 
SEO 0116 


Functional Description: 

The blast table stores for all banks of 
a tested array module all blasting information 
needed to mask out data errors. 

This routine when called will init this table 
to zeros. 

formal Parameters: 
none 

Implicit Inputs: 

BLAST. TBL 

Implicit Outputs* 

The blast table is loaded up with zeros. 

Completion codes: 
none 

Side Effects: 
none 


Loop through all blocks and words and fill 
the words up with zeros. 


incr TBL INDEX from 0 to Xo'7776* by to’2* do 
(BLAST. TBL ♦ . TBL.INDEX) = ZEROES; 


{Initialize the blast table 


005276 005000 

005300 005060 030372* 

005304 062700 000002 
005310 020027 007776 
005314 003771 
005316 000207 

; Routine Size: 9 words 
; Maximum stack depth per invocation: 


I. BLAST. TBL: 
CLR 

1$: CLR 

ADD 
CMP 
BLE 
RTS 


0 words 


.S8TTL I. BLAST. TBL ROUTINE DECLARATIONS 


R0 

BLAST. TBL (R0) 
#2.R0 
R0.#7776 
1 $ 

PC 


TBL.INDEX 
* (TBL. INDEX) 
♦.TBL.INDEX 
TBL.INDEX,* 


3052 

3053 | 
3052 


BSKEL4 

REV B PATCH 00 ROUTINE DECLARATIONS 


18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 


T0PS-20 Bliss-16 V2(2 12) 
PA:<NEALE>PMSKL4.BLI.1 (26) 


Page 82 
SEQ 0117 


3056 routine L RANDOM DATA (TEMP_ARR$SNK_SEL> : novalue = 

3057 begin" 


Functional Description: 

This global routine will load via mass bus 
write transfers random data to the selected 
array and bank addressed by arr$bnk_sel. 

Formal Parameters: ‘ 

ARR$BNK_SEL: 

This argument stores the array and 
bank select address. 


Implicit Inputs: 

URTJJUF. BNK.NUM.SE C 

Implicit Outputs: 
none 

Completion codes: 
none 


Side Effects: 
none 


local 

RANDOM.INDEX; 

RANDOM INDEX = ZERO; 
GEN.RAflDOM.DATA (); 


{Write buffer random data index 

.'The first transfer starts at write buf word zero 
{Generate a write buf of random data 


! Loop through all sectors in this bank and , 

! fill .the sectors up with random data contained in 
• the write buffer. At each sector. transfer 
! the write buffer index will start two words 
! deeper. ;* ,* - * - '•'V s 

!- ' . - > ; 

incr SEC.CNT from 0 to .BNK.NUM.SEC do {Load all sectors in bank with random data 

WR? 1 TRANSFER (SIZE = -256. DST = . TEMP.ARRSBNK.SEL + .SEC _CNT. SRC = WRT.BUF [.RANDOM INDEX. 
RANSOM.INDEX = .RANDOM.INDEX + 2; {Next sector starts 2 word deeper in write buffer 

end; 


URD3); 


005320 004167 000000G 


.SBTTL L. RANDOM. DATA ROUTINE DECLARATIONS 
L. RANDOM. DATA: 



B 10 



18-Mar-1982 16:07:57 

TOPS-20 Bliss-16 V2(212) 

Page 83 

18-Mar- 1982 15:44:41 

PA:<NEALE>PMSKL4.BLI.1 (26) 

SEO 0118 

R1 . JSAVE4 

0 

3056 

R3 

; RANDOM. INDEX 

3086 

PC. GEN. RANDOM. DATA 

9 

3087 

BAX.NUM.SEC ,R4 

0 

3097 

R1 

; SEC.CNT 


2$ 



tf-400.-(SP) 

9 

3099 

(SP) .SIZE 



R1.R2 

; SEC.CNT.* 


16(SP).R2 

; TEMP.ARRJ8NK.se,* 


R2.DST 



R2.-(SP) 



R3.R2 

; RANDOM. INDEX,* 


R 2 



AURT.8UF.R2 



R2.SRC 



R2.-(SP) 



PC. WRT. TRANSFER 



A2.R3 

; *, RANDOM. INDEX 

3100 

#6.SP 

• 

# 

3098 

R1 

; SEC.CNT 

3097 

R1.R4 

; SEC.CNT,* 


1$ 



PC 

0 

3056 



BSKEL4 

REV B PATCH 00 

3104 

3105 

3106 

3107 
3103 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 


ROUTINE DECLARATIONS 


C 10 

18-Har-1982 16:07:57 
18-Mar-1982 15:44:41 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>PMSKL4.BLI.1 (27) 


routine L 1 0 DATA (TEMP ARRSBNK.SEL, DATA) : novalue = 
begin” 

♦♦ 

Functional Description: 

This global routine will load the 
selected array and bank with ones 
or zeros data. 

Formal Parameters: 

ARRS8NK SEL: 

This argument stores the array and 
bank select address. 

Implicit Inputs: 

WRT.BUF, BNK.NUM.SE C 

Implicit Outputs: 

URT.BUF is filled up with data 

Completion codes: 
none 

Side Effects: 
none 


VER CZMLCB CHANGED 127 TO 255 
! ♦ 

; Fill the write buffer up with the data 
! type contained in the argument 'data' 

incr URD CNT from 0 to (255 ♦ 511»2) do 
WRT.flUF C.WRD.CNT, WRDJ = .DATA; 

► 

Now fill this bank under test up with 
the data just load into the write buffer. 

incr SEC CNT from 0 to .8NK NUM SEC do !Load all sectors jn bank with data 
WRT.TRANSFER (SIZE = -256. BST = . TEMP.ARRSBNK.SEL ♦ .SEC.CNT, SRC = WRT.BUF); 

end; 


!Load the write buf with data 


005430 004167 OOOOOOG 


•SBTTL L. 1.0. DATA ROUTINE DECLARATIONS 
L. 1.0. DATA: 
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SEQ 0120 





JSR 

R1.SSAVE3 



3104 

005434 

005000 



CLR 

RO 


; WRD.CNT 

3140 

005436 

010001 


IS: 

MOV 

RO.Rl 


; WRD.CNT,* 

31 4 1 

005440 

006301 



ASL 

R1 




005442 

016661 

000012 002234* 


MOV 

12(SP) .WRT.BUF (R1 ) 


; DATA.* 


005450 

005200 



INC 

RO 


; WRD.CNT 

3140 

005452 

020027 

002375 


CMP 

R0.#2375 


; WRD.CNT,* 


005456 

003767 



BLE 

1$ 




005460 

016703 

040416* 


MOV 

BNK.NUM.SEC.R3 



3148 

005464 

005002 



CLR 

R 2 


; SEC.CNT 


005466 

000423 



BR 

3$ 




005470 

012746 

177400 

2$: 

MOV 

#-400. -(SP) 



3149 

005474 

011667 

040426* 


MOV 

(SP) .SIZE 




005500 

010201 



MOV 

R2.R1 


; SEC.CNT,* 


005502 

066601 

000016 


ADD 

1 6 < SP> ,R1 


; TEMP.ARRSBNK.SE,* 


005506 

010167 

040430' 


MOV 

R1.DST 




005512 

010146 



MOV 

R1,-(SP) 




005514 

012746 

002234* 


MOV 

fWRT.BUF ,-(SP) 




005520 

011667 

040432' 


MOV 

(SP). SRC 




005524 

004767 

176162 


JSR 

PC. URT. TRANSFER 




005530 

062706 

000006 


ADD 

#6.SP 




005534 

005202 



INC 

R2 


; SEC.CNT 

3148 

005536 

020203 


3$: 

CMP 

R2.R3 


; SEC.CNT,* 


005540 

003753 



BLE 

2$ 



3104 

005542 

000207 



RTS 

PC 


# 

; Routine Size: 

38 words 







; Maximum stack 

depth per invocation: 

7 words 








E 10 

BSKEL4 18-Har-1982 16:07:57 TOPS-20 Bliss-16 V2(212) 

REV B PATCH 00 ROUTINE DECLARATIONS 18-Har-1982 15:44:41 PA:<NEAlE>P*SKl4.8ll . 1 (28) 


3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 


routine L.CHIP.TBL (FAIL.CHIP, PAT.SEL) : '.ovalue = 
begin* 


functional Description: 

The bed chip table stores for a bank 
all the tailing mos rams and thier 
failing data patterns. The possible 
data patterns that could fail are: 

1. all ones data 

2. all zeros data 

3. thirteen random data patterns 

This global routine will set the fault flag 
and failing data pattern flag for each 
mos ram found to be bad. 

formal Parameters: 

FAIL.CHIP: . . 

Points to the failing chips table position 

PAT SEL: 

Points to the current failing pattern for this 
chip. 

Implicit Inputs: 

CHIP.TBL 

Implicit Outputs: 

Chip tables bit positions fault and either 
pat 0 or pat.l or ran 1 to ran_13 
are selected and set to a 1 . 

Completion codes : 
none 

Side Effects: 
none 


CHIP.TBL C. FAIL.CHIP, FAULTJ = SET.fLG; !Set this chips fault flag 
! ♦ 

! Index into the chip table at this failing 
! chip and pattern number and set the bit. 

I • 

case .PAT.SEL from 0 to 14 of ! Select the chips failing data pattern 

set 

C0J : 

CHIP.T8L C. FAIL.CHIP, PAT.0J = SET.FLG; 
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.'Set zeroes data flag 
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[13 : 

CHIP.TBL 

C23 : 

CHIP.TBL 

[33 : 

CHIP.TBL 

[43 : 

CHIP.TBL 

[53 : 

CHiP.TBL 
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SEQ 0122 


[.FAIL.CHIP, PAT.13 = SET.FLG; 


.'Set ones flag 


[.FAIL.CHIP, RAN.13 = SET.FLG; I Set random data 1 flag 

[.FAIL.CHIP, RAN.23 * SET.FLG; I Set random data 2 flag 


[.FAIL.CHIP, RAN.33 = SET.FLG; 


I Set random data 3 flag 


[.FAIL.CHIP, RAN.43 * SET.FLG; .'Set random data 4 flag 


[63 : 


CHIP.TBL [.FAIL.CHIP, RAN.53 = SET.FLG; I Set random data 5 flag 


[73 : 

CHIP.TBL 

[83 : 

CHIP.TBL 

[93 : 

CHIP.TBL 

[103 : 

CHIP.TBL 

[113 : 

CHIP.TBL 

[123 : 

CHIP.TBL 

[133 : 

CHIP.TBL 

[143 : 

CHIP.TBL 

tes; 


[.FAIL.CHIP, RAN.63 = SET.FLG; 
[.FAIL.CHIP, RAN. 73 = SET.FLG; 
[.FAIL.CHIP, RAN.83 = SET.FLG; 
[.FAIL.CHIP, RAN.93 * SET.FLG; 


! Set random data 6 flag 
! Set random data 7 flag 
! Set random data 8 flag 
.'Set random data 9 flag 


[.FAIL.CHIP, RAN.103 = SET.FLG; 'Set random data 10 flag 
[.FAIL.CHIP, RAN.113 * SET.FLG; * Set random data 11 flag 
[.FAIL.CHIP, RAN.123 = SET.FLG; I Set random data 12 flag 
[.FAIL.CHIP, RAN.133 = SET.FLG; .'Set random data 13 flag 


005544 010146 

005546 016600 
005552 006300 
005554 062700 


000006 

030230* 


.S8TTL L. CHIP.TBL ROUTINE DECLARATIONS 

L. CHIP.TBL : 

NOV R1,-(SP) 

NOV 6(SP),R0 

ASL RO 

ADD #CHIP. TBL.RO 


; FAIL.CHIP,* 
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005560 

052710 

100000 


BIS 

#100000. (RO) 




005564 

016601 

000004 


MOV 

4(SP) ,R1 

; 

PAT.SEL,* 

3198 

005570 

006301 



ASL 

R1 




005572 

066107 

005576 ‘ 


ADD 

1$(R1 ) ,PC 




005576 

000036 


IS: 

.WORD 

2S-1S 




005600 

000044 



.WORD 

3$-1$ 




005602 

000052 



.WORD 

4S-1S 




005604 

000060 



.WORD 

5$-1$ 




005606 

000066 



.WORD 

6S-1S 




005610 

000074 



.WORD 

7$-1$ 




005612 

000102 



.WORD 

8S-1S 




005614 

000110 



.WORD 

9S-1S 




005616 

000116 



.WORD 

10S-1S 




005620 

000124 



.WORD 

H$-1S 




005622 

000132 



.WORD 

12$-1$ 




005624 

000140 



.WORD 

13S-1S 




005626 

000146 



.WORD 

1 4$— 1 S 




005630 

000154 



.WORD 

15$-1$ 




005632 

000162 



.WORD 

16$-1$ 




005634 

052710 

040000 

2$: 

BIS 

#40000, (RO) 



3202 

005640 

000451 



BR 

17$ 



3198 

005642 

052710 

020000 

3S: 

BIS 

#20000. (RO) 



3205 

005646 

000446 



BR 

17$ 



3198 

005650 

052710 

010000 

4$: 

BIS 

#10000, (RO) 



320S 

005654 

000443 



BR 

17$ 



3198 

005656 

052710 

004000 

5$: 

BIS 

#4000, (RO) 



3211 

005662 

000440 



BR 

17$ 



3198 

005664 

052710 

002000 

6$: 

BIS 

#2000. (RO) 



3214 

005670 

000435 



BR 

17$ 



3198 

005672 

052710 

001000 

7$: 

BIS 

#1000,(R0) 



3217 

005676 

000432 



BR 

17$ 



3198 

005700 

052710 

000400 

8$: 

BIS 

#400. (RO) 



3220 

005704 

000427 



BR 

17$ 



3198 

005706 

152710 

000200 

9$: 

BISS 

#200, (RO) 



3223 

005712 

000424 



BR 

17$ 



3m 

005714 

152710 

000100 

10$: 

BISS 

#100, (RO) 



3226 

005720 

000421 



BR 

17$ 



3198 

005722 

152710 

000040 

11$: 

BISS 

#40. (RO) 



3229 

005726 

000416 



BR 

17$ 



319® 

005730 

152710 

000020 

12$: 

BI SB 

#20, (RO) 



3232 

005734 

000413 



BR 

17$ 



3198 

005736 

152710 

000010 

13$: 

BISS 

#10, (RO) 



3235 

005742 

000410 



BR 

17$ 



3198 

005744 

152710 

000004 

14$: 

BISB 

#4, (RO) 



3238 

005750 

000405 



BR 

I7i 



3198 

005752 

152710 

000002 

15$: 

BISB 

#2, (RO) 



3241 

005756 

000402 



BR 

17i 



3198 

005760 

152710 

000001 

16$: 

BISB 

#1,(R0) 



3244 

005764 

012601 


17$: 

MOV 

(SP)+,R1 



3152 

005766 

000207 



RTS 

PC 




; Routine Size: 

74 words 
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3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 
327U 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 


routine L.FAILING.CHIP <TENP_ARR$8NK.SEl . BAD.CHIP. LST_PAT) = 
begin” 


♦♦ 

Functional Description: 

The program will first search though a 
selected arrays bank and find all 
newly failing mos rams and store them 
into the chip table. 

Once they are found they are then loaded 
with the data pattern which failed them 
and failing row column pair addresses are 
searched for. 

This global routine will load a failing chip 
with one of the data patterns which failed 
during the mass bus transfers. 


Formal Parameters: 

ARRJBNK.SEL: 

This 
bank 
BAD.CHIP: 

This points to a 


argument stores the array and 
selcect address. 


failing chip which is 


IST.PAT: 


currently being pm'ed. 

This is a pointer into the failing pattern 
portion of the table. The failing pattern 
search starts at the last found failing pattern 
and will return with the next failing pattern 
found. 


Implicit Inputs: 

CHIP.TBL 

Implicit Outputs: 
none 

Completion codes: 

At the completion of this routine 
Pat sel is returned to the operator 
which points to the table location 
which was last referenced. This 
enables an N search of this table 
rather than an N squared search. 

If a chip is found to be bad then 
the failing pat sel is returned. 

A negitive one is returned if no 
chip are found to be bad. 


T0PS-20 Bliss-16 V2 <21 2) 
PA:<NEALE>PMSKL4.BLI.1 (29) 
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3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 
331? 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

3334 

3335 

3336 

3337 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 


J 10 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 


Side Effects: 
none 


Increment through the chip table and 
search for failing patterns for this 
failing chip number. If a failing 
pattern is found then return the index 
value for that pattern else return a 
-1 to indicate that no failing patterns 
exist for this chip. 


incr PAT SEl from .LST.PAT to 14 do ! Search th chip table for a failing pattern 

begin 

! ♦ 

! Index into the chip table at this 
! pattern selected and see if this 
! pattern is set for this failing chip. 

I 

i If a se.ected random pattern bit is not 
! set for a failing chip then generate the 
! random data in tne write buffer anyways. 

! This will keep the write buffer filled with 
! random data relitive to the random data failing 
! the mass bus transfers. 


case .PAT.SEL from 0 to 14 of ! Select a pattern 

set 


[03 : 


if .CHIP TBL r. BAD CHIP, PAT.03 'Did this pattern fail 
then 


begin 

DM 1 0 LOAD (.TEMP ARRS8NK SEL. ZEROES); .'Load chip with zeroes 

CHIP TSL [.BAD CHIP. PAT .01 = CLR.FLG; .'Clear this pat flag 

FLG PEG CF.RANP DATA! = tLR_FL6; ! Clear the random flag 
return .PAT.SEL; iReturn which pattern was selected 

end; 


[13 : 


if .CHIP TBL [.BAD CHIP. PAT.13 !Did this pattern fail 
then 


begin 

DM 1 0 LOAD ( . TEMP ARRS8NK SEL . ONES); 
CHIPITBL C.BAD.CHlP, PAT.il = CLR.FLG; 


.'Load chip with ones data 
! Clear this pat flag 



BSKEL4 

REV B PATCH 00 ROUTINE DECLARATIONS 


Page 92 
SEQ 0127 


3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 
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FLG.REG CF RAND.DATAJ = CLR.FLG; .'Clear the random flag 
return .PAT.SEL; IReturn which pattern was selected 

end; 


C2J : 


if not .CHIP.TBL C.BAD.CHIP, RAN.13 .'Did this pattern fail 
then 

begin 

GEN.RANDOM.DATA (); !Gen the random data but doni load it 

end’ 

else 


begin 

DM RAND LOAD (.TEMP ARRJBNK SEL); !Load the chip with random data 
CHIP TBC [.BAD CHIP , RAN 1] = CLR.FLG; .'Clear this pat flag 

FLG.REG CF.RAND.DATAI = SET.FLG; .'Set the random flag 
return .PAT.SEL; IReturn which pattern was selected 

end; 


C3J : 


if not .CHIP.TBL C.BAD.CHIP, RAN.23 ! Did this pattern fail 
then 

begin 

GEN.RANDOM.DATA (); !Gen the random data but dont load it 

end 

else 


begin 

DM RAND.LOAD (.TEMP.ARRS6NK.SEL); !Load chip with random data 
CHlP.TBC C.BAD.CHIP. RAN.2I = CLR.FLG; .'Clear this pat flag 

FLG Reg CF rand DATA! = SET.FLG; ! Set the random flag 
return .PAT.SEL; IReturn which pattern was secected 

end; 


C43 ; 


if not .CHIP.TBL C.BAD.CHIP, RAN.3] .'Did this pattern fail 
then 

begin 

GEN.RANDOM.DATA (); IGen the random data but dont load it 

end 

else 

begin 

DM RAND LOAD (.TEMP ARRSBNK SEL); I Load chip with random data 

CHIP TBl C.BAD CHIP, RAN 3D’= CLR.FLG; ! Clear this pat flag 

FLG REG CF RAND.DATAJ = SET.FLG; I Set the random data flag 

return .PAT SEL; IReturn which pattern was secected 

end; 


C5J : 


if not .CHIP.TBL C.BAD.CHIP, RAN.43 


.'Did this pattern fail 
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3404 

3405 

3406 

340 7 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

344 7 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 
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then 


else 


begin 

GEN.RANDOM.DATA (); 
end’ 


!Gen the random data but dont load it 


begin 

DM RAND LOAD (.TEMP ARRSBNK.SEL) ; ILoad chip with random data 
CHIP TBt C.BAD CHIPT RAN 4] = CLR.FLG; .'Clear the pat flag 

FLG Reg CF rand DATA3 = SET.FLG; ! Set the random data flag 
return .PAT.SEL; IReturn which pattern was selected 

end; 


C63 : 


if not .CHIP.TBL C.BAD.CHIP. RAN.53 .'Did this pattern fall l 
then 

begin 

GEN_RANDOM_DATA (); 
end 

else 


begin 

DM RAND LOAD (.TEMP ARRSBNK.SEL); !Load chip with random data 
CHIP TBC C.BAD CHIP, RAN 53 = CLR.FLG; IClear the pat flag 

FLG REG CF RAND DATA3 = SET.FLG; !Set the random data flag 
return .PAT.SEL; IReturn which pattern was selected 

end; 


C7J : 


if not .CHIP.TBL C.BAD.CHIP, RAN.63 !Did this pattern fail 
then 

begin 

GEN.RANDOM.DATA ('; !Gen the random data but dont load it 

end’ 

else 

begin 

DM RAND LOAD ( . TEMP.ARRSBNK.SEL ) ; .'Load chip with random data 
CHIP TBC C.BAD.CHIP, RAN.63 = CLR.FLG; JClear the pat flag 
FLG.REG CF RAN0.DATA3 = SET.FLG; .'Set. the random data, flag 

mafumn DAT CPI • I Plltl 


return .PAT.SEL; 
end; 


IReturn which pattern was selected 


C83 


if not .CHIP.TBL C.BAD.CHIP, RAN.73 
then 


else 


begin 

GEN RANDOM.DATA (); 
end 


'Did this pattern fail 
!Gen the random data but dont load it 


begin 

DM.RAND.LOAD (.TEMP.ARRSBNK.SEL); ILoad chip with random data 
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3456 

3457 

3458 

3459 

3460 

3461 

3462 

3463 

3464 

3465 

3466 

3467 

3468 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 
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CHIP TBL [.BAD CHIP, RAN 73 = CLR.FLG; {Clear the pat flag 

FLG REG CF rand DATA3 = SET FLG; ! Set the random data flag 
return .PAT.SEL; {Return which pattern was selected 

end; 


[93 : 


if not .CHIP.TBL [.BAD.CHIP, RAN.83 !Did this pattern fail 
then 

begin 

GEN.RANDOM.DATA (); !Gen the random data but dont load it 

end" 

else 


begin 

DM RAND LOAD (.TEMP ARR$BNK.SEL>; !Load chip with random data 
CHIP TBt [.BAD CHIP, RAN 83 = CLR.FLG; {Clear the pat flag 

FLG REG [F ranB DATA3 = SET.FLG; !Set the random data flag 

r>o f nrn DAT CPI • ^ 


return .PAT.SEL.7 
end; 


'{Return which pattern was selected 


[103 : 


if not .CHIP. TBL [.BAD ..CHIP, RAN.93 !Did this pattern fail 
then 

begin 

GEN.RANDOM.DATA O; !Gen the random data but dont load it 

end" 

else 

begin 

DM RAND LOAD ( . TEMP.ARRJ8NK.SEL ) ; !Load chip with random data 

CHIP TBt [.BAD CHIP, RAN 93 = CLR.FLG; .'Clear the pat flag 
FLG REG [F RAND DATA3 = 5ET.FLG; !Set the random data flag 
return .PAT.SEL; 
end; 


'{Return which pattern was selected 


[113 : 


if not .CHIP.1BL [.BAD.CHJP, RAN.103 {Did this pattern fail 
then 

begin 

GEN.RANDOM.DATA (); !Gen the random data but dont load it 

end” 

else 

begin 

DM RAND LOAD ( . TEMP.ARRJBNK SEL); {Load chip with random data 
CHIP TBt [.BAD CHIP, RAN 101 = CLR.FLG; {Clear the pat flag 
FLG REG [F RAND DATA3 = SET.FLG; JSet the random data flag 
return .PAT.SEL? {Return which pattern was selected 

end; 


[123 : 
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3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 


ROUTINE DECLARATIONS 


N 10 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 


TOPS-20 Bliss-16 V21212) 
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!Did this pattern fail 


if not .CHIP.T8L C.8AD.CHIP, RAN.11] 
then 

beg i n 

GEN.RANDOM.DATA <); IGen the random data but dont load it 

end” 

else 

beg i n 

DM RAND LOAD (.TEMP ARRSBNK SEL> ; !Load chip with random data 
CHIP TBC [.bad CHIP, RAN.113 = CLR.FLG; !Clear the pat flag 
FLG REG CF RANB DATA] = SET.FLG; I Set the random data flag 
return .PAT.SEL; IReturn which pattern was selected 

end; 


Cl 3] 


.'Did this pattern fail 
IGen the random data but dont load it 


if not .CHIP.TBL C.8AD.CHIP, RAN.12] 
then 

begin 

GEN.RANDOM.DATA <>; 
end 

else 

begin 

DM RAND LOAD (.TEMP ARRSBNK SEL); iLoad chip with random data 
CHIP TBt C.BAD CHIP, RAN 123 = CLR.FLG; .'Clear the pat flag 
FLG Reg CF RANB DATA] = SET.FLG; .'Set the random data flag 
return .PAT.SEL? IReturn which pattern was selected 

end; 


Cl 43 


if .CHIP TBL C.BAD.CHIP, RANJ3] IDid this pattern fail 

then 

begin 

DM RAND LOAD ( . TEMP.ARRS8NK SEL ) ; ILoad chip with random data 

CHIP TBC C.BAD CHIP, RAN.133 = CLR.FLG; IClear the pat flag 
FLG Reg CF RANB DATA] = SET.FLG; ISet the random data flag 
return .PAT.SEL; IReturn which pattern was selected 

end; 


tes; 


end; 

return -1; 
end; 


IReturn negitive one if all pattern flags are cleared 


005770 004167 000000G 

005774 016600 000012 
006000 006300 


.SBTTL 
L. FAILING. CHIP: 
JSR 
MOV 
ASL 


L. FAILING. CHIP ROUTINE DECLARATIONS 


R1.SSAVE2 

12(SP),R0 

RO 


BAD. CHIP,* 
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B 11 

18-Har-198i 

18-Nar-198i 


006002 

012702 

030230 1 


MOV 

#CHIP.TBL.R2 

006006 

060002 



ADD 

R0.R2 

006010 

016601 

000010 


MOV 

10(SP) ,R1 

006014 

005301 



DEC 

R1 

006016 

000167 

000560 

1 J: 

JMP 

24$ 

006022 

010100 


2$: 

MOV 

R1.R0 

006024 

006300 



ASL 

RO 

006026 

066007 

006032' 


ADD 

3$<R0).PC 

006032 

000036 


3 J : 

.WORD 

4J-3J 

006034 

000064 



.WORD 

5J-3J 

006036 

000126 



.WORD 

7J-3J 

006040 

000152 



.WORD 

8J-3J 

006042 

000176 



• WORD 

9J-3J 

006044 

000222 



.WORD 

10J-3J 

006046 

000246 



.WORD 

11 $-3$ 

006050 

000272 



.WORD 

12J-3J 

006052 

000314 



.WORD 

13J-3J 

006054 

000340 



.WORD 

14J-3J 

006056 

000364 



.WORD 

15J-3J 

006060 

000410 



.WORD 

16J-3J 

006062 

000434 



.WORD 

17S-3S 

006064 

000460 



.WORD 

1 8J-3J 

006066 

000512 



.WORD 

21 $-3$ 

006070 

032712 

040000 

AS: 

BIT 

#40000. (R2) 

006074 

001750 



BEQ 

1$ 

006076 

016646 

000014 


MOV 

14(SP),-(SP) 

006102 

005046 



CLR 

-(SP) 

006104 

004767 

174460 


JSR 

PC, DM.1 .O.LOAD 

006110 

042712 

040000 


BIC 

#40000. (R2) 

006114 

000413 



BR 

6$ 

006116 

032712 

020000 

5J: 

BIT 

#20000, <R2) 

006122 

001735 



BEQ 

1J 

006124 

016646 

000014 


MOV 

14(SP),-(SP) 

006130 

012746 

177777 


MOV 

#-1 ,-(SP) 

006134 

004767 

174430 


JSR 

PC.DM. 1.0. LOAD 

006140 

042712 

020000 


BIC 

#20000. (R2) 

006144 

142767 

000040 040422' 

6J: 

81 CB 

#40, FLO. REG 

006152 

022626 



CMP 

<SP)+. (SP)+ 

006154 

000167 

000416 


JMP 

23$ 

006160 

032712 

010000 

7$: 

BIT 

#10000, (R2) 

006164 

001555 



BEQ 

19$ 

006166 

016646 

000014 


MOV 

14<SP),-(SP) 

006172 

004767 

173776 


JSR 

PC. DM. RAND. LOAD 

006176 

042712 

010000 


BIC 

#10000. <R2) 

006202 

000571 



BR 

22$ 

006204 

032712 

004000 

8$: 

BIT 

#4000. <R2) 

006210 

001543 



BEQ 

19$ 

006212 

016646 

000014 


MOV 

14 <SP) ,-(SP) 

006216 

004767 

173752 


JSR 

PC. DM. RAND. LOAD 

006222 

042712 

004000 


BIC 

#4000. (R2) 

006226 

000557 



BR 

22$ 

006230 

032712 

002000 

9J: 

BIT 

#2000. (R2) 
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; 1ST. PAT, PAT. SEL 3315 

; PAT. SEL 

; PAT. SEL,* 3331 


; TEMP.ARRJBNK.SE.* 


; TEMP.ARRJBNK.SE.* 


TEMP.ARRJ8NK.SE,* 


3336 

3339 


3340 

3341 


3347 


3350 



temp.arrjbnk.se,* 
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006234 

001531 



BEO 

006236 

016646 

000014 


NOV 

006242 

004767 

173726 


JSR 

006246 

042712 

002000 


B1C 

006252 

000545 



BR 

006254 

032712 

001000 

10$: 

BIT 

006260 

001517 



BEO 

006262 

016646 

000014 


NOV 

006266 

004767 

173702 


JSR 

006272 

042712 

001000 


BIC 

006276 

000533 



BR 

006300 

032712 

000400 

11$: 

BIT 

006304 

001505 



BEO 

006306 

016646 

000014 


NOV 

006312 

004767 

173656 


JSR 

006316 

042712 

000400 


BIC 

006322 

000521 



BR 

006324 

105712 


12$: 

TST8 

006326 

100074 



BPL 

006330 

016646 

000014 


NOV 

006334 

004767 

173634 


JSR 

006340 

142712 

000200 


BICB 

006344 

000510 



BR 

006346 

132712 

000100 

13$: 

BITS 

006352 

001462 



BEO 

006354 

016646 

000014 


NOV 

006360 

004767 

173610 


JSR 

006364 

142712 

000100 


BICB 

006370 

000476 



BR 

006372 

132712 

000040 

14$: 

BITS 

006376 

001450 



BEO 

006400 

016646 

000014 


NOV 

006404 

004767 

173564 


JSR 

006410 

142712 

000040 


BICB 

006414 

000464 



BR 

006416 

132712 

000020 

15$: 

BITS 

006422 

001436 



BEO 

006424 

016646 

000014 


NOV 

006430 

004767 

173540 


JSR 

006434 

142712 

000020 


BICB 

006440 

000452 



BR 

006442 

132712 

000010 

16$: 

BITS 

006446 

001424 



BEO 

006450 

016646 

000014 


NOV 

006454 

004767 

173514 


JSR 

006460 

142712 

000010 


BICB 

006464 

000440 



BR 

006466 

132712 

000004 

17$: 

BITS 

006472 

001412 



BEO 

006474 

016646 

000014 


NOV 

006500 

004767 

173470 


JSR 

006504 

142712 

000004 


BICB 



3516 



BSKEL4 
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006510 

000426 



18$: 

006512 

132712 

0C00C2 


006516 

001003 



19$: 

006520 

004767 

172550 


006524 

000426 



20 $: 

006526 

016646 

000014 


006532 

004767 

173436 



006536 

142712 

000002 



006542 

000411 



21 $: 

006544 

132712 

000001 


006550 

001414 

000014 



006552 

016646 



006556 

004767 

173412 



006562 

142712 

000001 

040422’ 

22 $: 

006566 

152767 

000040 

006574 

005726 



23$: 

006576 

010100 



006600 

000207 



24$: 

006602 

005201 



006604 

020127 

000016 



006610 

003002 




006612 

000167 

177204 


25$: 

006616 

012700 

177777 


006622 

000207 





BR 

BITS 

BNE 

JSR 

BR 

MOV 

JSR 

BICB 

BR 

BITB 

BEQ 

MOV 

JSR 

BICB 

81 SB 

TST 

MOV 

RTS 

INC 

CMP 

BGT 

JMP 

MOV 

RTS 


; Routine Size: 206 words 

; Maximum stack depth per invocation: 5 words 


0 11 

18-Har-1982 16:07*57 
■ 18 -Mar- 1 982 15:44:41 


22 $ „ 

#2.(R2) 

20 i 

PC.GEN. RANDOM. DATA 
24i 

14 (SP) ,-(SP) 

PC, DM. RAND. LOAD 
#2.(R2) 

22 i 

#1 . (R2) 

24i 

14(SP),-(SP) 

PC, DM. RAND. LOAD 
#1 ,(R2) 

#40.FLG.REG 
(SP) + 

R1.R0 

PC 

R1 

R1.#16 

25i 

2 $ 

#-1 ,R0 
PC 
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SEQ 0133 

• 

3517 

0 

3523 

• 

3526 


3523 

; TEMP.ARR$ 8 NK.SE.* 

3530 

• 

3531 

j 

3532 

0 

3538 

; TEMP.ARR$ 8 NK.SE.* 

3541 

• 

3542 


3543 

* 

3538 

!• PAT.SEL.* 

3540 

; PAT.SEL 

3315 

; PAT.SEL,* 

3249 

0 

3248 



BSKEL4 

REV B PATCH 00 

3553 

3554 

3555 

3556 

3557 
35 r 8 
3559 
356C 

3561 

3562 

3563 

3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 


ROUTINE DECLARATIONS 

routine L.ERROR.MAP (TEMP.ARRS8NK.SEl, BAD.CHIP) 
begin" 


E 11 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 

novalue = 


T0PS-20 Bliss-16 V2(212> 
PA:<NEALE>PMSKL4.BLI.1 (30) 


♦ ♦ 


Functional Description: 

The error map stores by sector all the 

newly failing row addresses within a failing chip. 

The failing column address can be calculated 
by adding the row number to the sector number. 

This global routine searches all sectors within 
a failing chip looking for bad row addresses. 

If a bad row is detected then that rows 
bit position in the error map at this 
sector is set indicating the bad row. 

Formal Parameters: 

ARRS8NK SEL • 

"This argument stores the array and bank select address 
BAD.CHIP: 


This argument points to a failing which is presently 
being tested. Dividing this arg by 4 gives the nibbl 
position in the ML-11 word and this arg mod 4 gives t 

. l : ifS 


chips bit position within its nibble. 

implicit Inputs: 

ERROR.MAP, FLG.REG, WRT.BUF 

Implicit Outputs: 

The error map is loaded with failing row address 
locations within the tested chip sector range. 

Completion codes: 
none 

Side Effects: 
none 


_e 

the 


local 

WRD.INDEX, 

BIT INDEX. 
RANB INDEX, 
DIAG REG.SEL, 
BIT SEL. 
OFFSET; 


! Points to a word in the error map 
! Points to a bit in the error map 
'Sector random starting position 
! Select data diag reg where failing chip resides 
! Select the failing chip position 
!First selects data diag reg; second selects random data offset 


I 

j BAD CHIP / 16 AND BAD.CHIP MOD 16 HILL 
POINT TO UHICH DIAGNOSTIC REGISTER THE 8AD 
' CHIP CAME FROM AND THE BITS 


POSITION UITHIN THE REGISTER. 


Page 99 
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Page 100 
SEO 0135 


3605 

3606 

3607 

3608 

3609 

3610 

3611 

3612 

3613 

3614 

3615 

3616 

3617 

3618 

3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 


18-Har-1982 16:07:57 T0PS-20 Bliss-16 V2C212) 

18-Rar-1982 15:44:41 PA:<NEALE>PMSKL4.BLI.1 (30) 


OFFSET = 
BI T_SEL = 


.BAD CHIP/16; 
.BA5.CHIP mod 16; 


! Calculate which data diag reg to read 
{Calculate failing chip., bit position 


OFFSET VALUES 2 = MLE2 = 14; 

0 = MLD1 = 15; 

1 = MLD2 = 16; 

From the value of offset calculated above 
it can be determined which data diagnostic 
register this failing bit comes from. 

Therefore examin the contents of offset and 
determine which register this bit belongs to. 


if .OFFSET eql 2 
then 

begin 
DIAG 


else 


REG.SEL = 14; 
BITjEL * .BIT.SEL ♦ 8; 
end 


DIAG.REG.SEL = .OFFSET ♦ 15; 


•Is bad chip divided by 16 equal to 2 

{Select data diag reg mle2 

{This registers data bits starts in high byte 

!0 ♦ 15 * HLD1; 1 ♦ 15 = NID2 


When random data is loaded into 
the drive it is done by starting 
the next sector write transfer two 
deeper into the write buffer from 
the previous transfer. 

The flag register will indicate if the 
data loaded into this bank is random data 
or not. If random data was loaded then 
this routine must also offset into the write 
buffer two words deeper at each sector transfer. 
If random data was not loaded then the offset is 
is not required. 


if .FLG.REG CF.RAND.DATA3 then OFFSET = 2 else OFFSET = ZERO; {Offset = 2 if random data 

DM RD TRANSFER (SIZE = -256. DST = RD.BUF. SRC = . TEMP_ARR$8NK_SEL); 

RARD.TnDEX = ZERO; {The first sectors data starts at word «ero 


Before this routine is called this tested bank 
is filled with a failing data pattern from this 
failing chip. Now the railing chip in this bank 
is read back to find all the previous and newly 
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Page 10" 
SEO 0136 


3657 

3658 

3659 

3660 

3661 

3662 

3663 

3664 

3665 

3666 

3667 

3668 

3669 

3670 

3671 

3672 

3673 

3674 

3675 

3676 

3677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 


6 11 

18-Har-1982 16:07:57 
18-Har-1982 15:44:41 


rows. 

Increment through all sectors in this bank and 
compare the write data to the data sittings 
this chip. On compare errors determine which 
row(s) are in error and indicate the 
failure(s) by setting the row bit at this sector 
in the error map. 


ncr SEC.NUN from 0 to .BNK.NUN.SEC do !Read all sectors in failing chip 
begin 
BREAK; 


Increment through all words in this sector _ # 
and find all failing row(s) and store the failing 
number in the error map at this sector. 


incr ROW NUN from 0 to 127 do 
begin 
DAT.CLK; 


!Read all words in failing chip 
{Clock data into the data diag registers 


Compare the write data to the read data 
and if in error then indicate the failure 
by setting this row bit at this sector in 
tne error map. 


if .WRT BUF [.RAND INDEX ♦ .R0W.NUN, .BIT.SEL, ONE, ZER03 neq .NL.ADDR [.DIAG.REG.SEl 
”.6IT_SEL. ONE. ZER03 ! Is write buf data eql data diag registers data 

then 


begin 

WRD INDEX = .ROW NUN/16; {Calculate error map word of failingrow 

BIT”INDEX = .R0W”NUN mod 16; {Calculate error map bit pos of failing row 
ERROR NAP [.SEC WUN, .WRD .INDEX, .BIT.INDEX, ONE, ZERO} = SET.FLG; 

FLG.REo [F.ERRJUP.ENTEREW * SET.FLG; {Flag that error map was entered 
end? 


end; 


! Bump the next sector transfer two words 
deeper in the write buffer if this data 
! is random data if not random data then 
! add zero. 

i 

RAND.INDEX = .RAND.INDEX ♦ .OFFSET; 
end;” 


{The next sector starts 2 words deeper if random data 
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• 

3709 

CLR MBUS; 



• 

3710 

end; 


.SBTTL 

006624 

004167 

OOOOOOG 

L. ERROR. MAP: 





JSR 

006630 

162706 

000022 


sue 

006634 

016646 

000040 


MOV 

006640 

012746 

000020 


MOV 

006644 

004767 

OOOOOOG 


JSR 

006650 

010004 



MOV 

006652 

016616 

000044 


MOV 

006656 

012746 

000020 


MOV 

006662 

004767 

OOOOOOG 


JSR 

006666 

010066 

000006 


MOV 

006672 

020427 

000002 


CMP 

006676 

001006 



BNE 

006700 

012702 

000016 


MOV 

006704 

062766 

000010 000006 


ADD 

006712 

000403 



8R 

006714 

010402 


1$: 

MOV 

006716 

062702 

000017 


ADD 

006722 

032767 

000040 040422* 

2S: 

BIT 

006730 

001403 



BEO 

006732 

012704 

000002 


MOV 

006736 

000401 



BR 

006740 

005004 


3$: 

CLR 

006742 

012716 

177400 

4$: 

MOV 

006746 

011667 

040426* 


MOV 

006752 

012746 

007230* 


MOV 

006756 

011667 

040430* 


MOV 

006762 

016646 

000052 

040432* 


MOV 

006766 

011667 


MOV 

006772 

004767 

172366 


JSR 

006776 

005066 

000014 

040416* 000016 


CLR 

007002 

016766 


MOV 

007010 

006302 



ASL 

007012 

005005 



CLR 

007014 

000536 



BR 

007016 

104422 


54: 

TRAP 

007020 

005001 



CLR 

007022 

016703 

040374* 

6$: 

MOV 

007026 

016366 

000024 000032 


MOV 

007034 

016600 

000032 


MOV 

007040 

152700 

000020 


BIS8 

007044 

016703 

040374* 


MOV 

007050 

010063 

000024 


MOV 

007054 

010103 



MOV 

007056 

066603 

000014 


ADD 

007062 

006303 



ASL 

007064 

062703 

002234* 


ADD 




BSKEL4 
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SEO 0138 

007070 

010346 




NOV 

R3.-(SP) 


; BIT.SEL,* 


0070 72 

016646 

000014 



NOV 

14 (SP) ,-(SP) 



007076 

012746 

000001 



NOV 

#1.-(SP) 




007102 

005046 




CLR 

-(SP) 




0071 04 

004767 

OOOOOOG 



JSR 

PC.8LJGT2 




007110 

062706 

000006 



ADD 

#6,SP 




007114 

010003 




NOV 

R0.R3 



3689 

007116 

010200 




NOV 

R2,R0 


• 

9 

007120 

066700 

040374* 



ADD 

NL.ADDR.RO 




007124 

011066 

000032 



NOV 

(R0).32(SP) 


; *, NL.REG 


007130 

012716 

000032 



NOV 

#32, (SP) 


; NL.REG.* 


007134 

060616 




ADD 

SP,(SP) 


3688 

007136 

016646 

000014 



NOV 

14(SP),-(SP) 


; BIT.SEL,* 

007142 

012746 

000001 



NOV 

#1,-(SP) 




007146 

005046 




CLR 

-(SP) 




007150 

004767 

OOOOOOG 



JSR 

PC.8LSGT2 
#10, SP 




007154 

062706 

000010 



ADD 




007160 

020300 




CNP 

R3,R0 




007162 

001444 




BEO 

7$ 



3692 

007164 

010146 




NOV 

RI.-(SP) 

#20, -(SP) 


; ROW.NLM.* 

007166 

012746 

000020 



NOV 




007172 

004767 

OOOOOOG 



JSR 

PC.8LSDIV 




0071 76 

010066 

000026 



NOV 

R0,26(SP) 


; *,WRD. INDEX 

3693 

007202 

010116 



NOV 

R1. (SP) 

#20, -(SP) 


; ROW. NUN,* 

007204 

012746 

000020 



NOV 




007210 

004767 

OOOOOOG 



JSR 

PC.8LSN0D 


; *,BIT. INDEX 
; SEC.Nlfl,* 


007214 

010066 

000026 



NOV 

R0,26(SP) 


3694 

007220 

010500 



NOV 

R5,R0 


007222 

006300 




ASL 

RO 




007224 

006300 




ASL 

RO 




007226 

006300 




ASL 

RO 




007230 

066600 

000030 



ADD 

30 (SP) .RO 


; URD. INDEX,* 


007234 

006300 




ASL 

RO 




007236 

062700 

010230* 



ADD 

#ERROR.NAP,RO 




007242 

010016 




NOV 

RO, (SP) 


; BIT. INDEX.* 


007244 

016646 

000026 



NOV 

26(SP),-(SP) 



007250 

012746 

000001 



NOV 

#1,-(SP> 




007254 

011646 




NOV 

(SP), -(SP) 




007256 

004767 

OOOOOOG 



JSR 

PC.BLSPU2 



3695 

007262 

152767 

000004 

040422* 


BISS 

#4,FLG.REG 
#14. SP 



007270 

062706 

000014 



ADD 



3691 

007274 

005201 



71: 

INC 

R1 


; ROW. NUN 

36 77 

007276 

020127 

000177 



CNP 

R1,#177 


; ROW. NUN.* 


007302 

003647 




BLE 

6S 


; OFFSET. RAND. INDEX 

3706 

007304 

060466 

000014 



ADD 

R4,14(SP) 


007310 

005205 



INC 

R5 


; SEC. NUN 

3667 

007312 

020566 

000016 


8$: 

CNP 

R5.16(SP) 


; SEC.Nlfl.* 


007316 

003637 




BLE 

5$ 



3707 

007320 

016701 

040374* 



NOV 

Nl.ADDR.R1 

10(R1),26(SP) 


; *. NL.REG 

007324 

016166 

000010 

000026 


NOV 



007332 

016600 

000026 



NOV 

26(SP),R0 


; NL.REG.NLREG 


007336 

152700 

000040 



BJSB 

#40, RP 


; *,NLREG 



I 
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ML.ADDR.R1 

R0,10(Rl) 

HL.ADDR.R1 

10(R1),24(SP) 

24(SP) ,R0 

ML.DUT.R5 

#177776.R5 

#7.R0 

R5.R0 

ML.ADDR.R1 

RO-IO(RI) 

#34, SP 
PC 


TOPS-20 Bliss-16 V21212) 
PA:<NEALE>P«SKL4.BLI.1 (30) 

; MLREG,* 

; *.«L.REG 
; ML.REG.MLREG 

; *,MLREG 
; *,«LREG 

; MLREG.* 


3553 
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3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 


K 11 
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ROUTINE DECLARATIONS 18-Par-1982 15:44:41 PA:<NEALE>P«SKL4.BLI . 1 (31) 

routine X.TMP.BLST.TBL (TEMP.ARRSBNK.SEL , ALL.BAD.CNT) : novalue = 
begin” 


Functional Description: 

The temp blast table stores the nibble number, 
row/column number and a r/c select flag for a 
row/colunm which has been selected for blasting. 

Once it is determined that this chip is not all 
bad (IE. > 10 all bad row/col) then this temp blast 
table is xfered into the main blast table. 

This table is needed because once this information 
is xfered into the main blast table there is no way 
of knowing which chip this bad row/col came from, 
therefore making it impossible to delete a row/col 
from the blast table once it has been loaded into it. 

Formal Parameters: 

ARRS8NK SEL: 

'This argument stores the array and bank select 
address. 

ALL BAD.CNT: 

This argument tells this global routine how many 
remainder table entries to xfer into the 
the main blast table. 

Implicit Inputs: 

BLAST. TBL, TrtP.BLST.TBL 

Implicit Outputs: 

The tempory blast table contents are transfered 
to the blast table at this bank, row and nibble 
position. 

Completion codes: 
none 

Side Effects: 
none 


local 

BNK.NUfl; 


! Points to failing bank 


BNK.NUM = . TEMP_ARR$8NK.SEL<.BNK.SEl.P0S, BNK$SEt.SIZE>; .'Calculate the failing bank 


Index through the temporary blast table 
and set the appropriate row or column bits 
in the main blast table at this row or 
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3763 

3764 

3765 

3766 

3767 

3768 

3769 

3770 

3771 

3772 

3773 

3774 

3775 

3776 

3777 

3778 

3779 

3780 

3781 

3782 

3783 

3784 
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! columns nibble position. 


incr CNT from 0 to .ALL BAD CNT do ! Transfer temp blast table to blast table 

» ~ " 

? If the row bit is set then set the row 
! bit in the main blast table at this row, 

! bank and nibble number else this is a. 

! column number and set the column bit in 
! the main blast table at this bank and 
! nibble number. 


if .TMP.BLST.TBL C.CNT, R.C3 eql 1 i Is this a failing row 

then 8LAST TBL C.BNK NUN, .TMP.BLST.TBL C.CNT, R.C.N03, .TMP BLST.TBL C.CNT. NIB.N03. ONE, ZER03 = 
SET.FtG " !Load the blast table with the failing row no. at this nibble 

elSC BLAST TBL C.BNK NUM, .TMP BLST.TBL C.CNT, R C N03 ♦ .COL.BASE, .TMP.8LST.TBL C.CNT, NIB N03. 

OfJE. ZER03 = SET.FLG; !Load tFe blast with the failing column at hns nibble no. 


end; 





•SBTTL 

X. TMP. BLST.TBL ROUTINE 

DECLARATIONS 

007424 

004167 

000000G 

X. TMP. BLST.TBL: 






JSR 

R1 .SSAVE3 

• 

007430 

012746 

000016 

MOV 

#16. -(SP) 

• 

007434 

060616 


ADD 

SP.(SP) 

; TEMP.ARRJ8NK.se.* 

007436 

016746 

040414* 

MOV 

BNK.SEL.POS.-(SP) 


007442 

012746 

000002 

MOV 

#2,-<SP> 


007446 

005046 


CLR 

-(SP) 


007450 

004767 

000000G 

JSR 

PC.BLSGT2 


007454 

000300 


SWAB 

RO 

• 

007456 

105000 


CLRB 

RO 


007460 

006300 


ASL 

RO 


007462 

010003 


MOV 

R0.R3 


007464 

005002 


CLR 

R2 

; CNT 

007466 

000450 


BR 

4$ 


007470 

010201 


IS: MOV 

R2.R1 

.* CNT,* 

007472 

006301 


ASL 

R1 


007474 

012700 

030346* 

MOV 

#TMP. BLST.TBL.RO 


007500 

060100 


ADD 

R1.R0 


007502 

005710 


TST 

(RO) 


007504 

100010 


BPL 

2$ 


007506 

011001 


MOV 

(RO).RI 

• 

007510 

006201 


ASR 

R1 


007512 

006201 


ASR 

R1 


007514 

006201 


ASR 

R1 


007516 

006201 


ASR 

R1 


007520 

042701 

177400 

BIC 

#177400,R1 


007524 

000411 


BR 

3$ 



3711 

3757 


3778 

3766 

3776 


3778 
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007526 

007530 

007532 

007534 

007536 

007540 

007544 

007550 

007552 

007554 

007560 

007562 

007564 

007570 

007574 

007576 

007602 

007606 

007610 

007614 

007616 

007622 


011001 

006201 

006201 

006201 

006201 

042701 

066701 

060301 

006301 

062701 

010146 

111046 

042716 

012746 

011646 

004767 

062706 

005202 

020266 

003725 

062706 

000207 


177400 

040372* 


030372’ 


177760 

000001 

OOOOOOG 

000010 

000022 

000010 


; Routine Size: 64 words 
; Maximum stack depth per invocation: 


2$: MOV 

ASR 
ASR 
ASR 
ASR 
BIC 
ADD 

3$: ADD 

ASL 
ADD 
MOV 
MOVB 
BIC 
MOV 
MOV 
JSR 
ADD 
INC 

4$: CMP 

BLE 
ADD 
RTS 


12 words 


M 11 
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(RO).RI 

R1 

R1 

R1 

R1 

*1 77400, R1 
COL. BASE ,R1 
R3.R1 
R1 

#BLAST.TBL,R1 

RI.-(SP) 

(RO).-(SP) 

#1 777*60 - < SP) 

ATI ,-(SP) 

(SP).-(SP) 

PC.8LSPU2 
#10. SP 
R2 

R2.22(SP) 

1 $ 

#10. SP 
PC 


TOPS-20 Bliss-16 V2(212> 
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CNT 

CNT.ALL.8AD.CNT 


# 
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3785 

3786 

3787 

3788 

3789 

3790 

3791 

3792 

3793 

3794 

3795 

3796 

3797 

3798 

3799 

3800 

3801 

3802 

3803 

3804 

3805 

3806 

3807 

3808 

3809 

3810 

3811 

3812 

3813 

3814 

3815 

3816 

3817 

3818 

3819 

3820 

3821 

3822 

3823 

3824 

3825 

3826 

3827 

3828 

3829 

3830 

3831 

3832 

3833 

3834 

3835 

3836 


N 11 
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routine X.TO.REM.TBL (REM.PTR) = 
begin 


Functional Description: 

Once the error map and the column count tables 
have been searched for all bad rows and columns all 
that remains are single cell failures scattered 
through out the error map. 

This global routine xfers all the remaining row column 
address pairs of the remaining failures into 
the remainder table where they are interigated 
and the best blast selection is determined. 

It should be noted here that two copies of the 
remainder table exist. The 'remainder table' will 
be used to manipulate column addresses (the right 
side of the table) and the 'copied remainder table' 
will be used to manipulate row addresses (the left 
side of the table). 

Formal Parameters: 

REM PTR 

This argument will first point to the 
starting table position where the first 
transfered row/column pair is to go. 


Implicit Inputs: 

ERROR MAP, REM TBL, C0PIEDJ»EM_TBL, COL.CNT, 
BNK.NOM.SEC, M*X_CHIP_C0L 

Implicit Outputs: 

The remainder and copied remainder table are 
loaded with the remaining single cell failures 
within this tested chip which have not yet been 
selected for blasting. 

Completion codes: 

Once the global routine is completed 'remjjtr' 
is returned to indicate how many row/col 
pairs were xfered into the remainder table. 

Side Effects: 
none 


local 

URD INDEX, 
BIT.INDEX, 
ROW NUM. 


! Stores the adjacent row addresses word position 
! Stores the adjacent row addresses word bit position 
! Stores a columns adjacent row number 
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3837 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3848 

3849 

3850 

3851 

3852 

3853 

3854 

3855 

3856 

3857 

3858 

3859 

3860 

3861 

3862 
3867 

3864 

3865 

3866 

3867 

3868 

3869 

3870 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

3886 

3887 

3888 
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ADJACENT CNT, 
START SEC. 

END SEC; 


! Stores the number of adjacent row addresses found 
{Variable sector starting address 
{Variable sector ending address 


Index through the colunn count table and 
transfer failing columns adjacent row 
pair into the remainder table. 


incr COL NUM from 0 to .MAX.CHIP.COL - 1 do .'Search column count table 

begin 

! If this column count table position is 
! not zero then search the error map for 
! its row pair and transfer them into 
! the remainder table. 


if .COL CNT_T8L C.COL.NUMJ neq ZERO !Does this location have a count in it 
then 

begin 

! Determine which type chip we are testing 
! and generate the appropriate run time 
! parameters for this routine. 


if .C0L_NUM gtr 127 
then 


begin 

ROW NUM = .COL NUM - 128; 
START SEC = 255; 

END.SEC = 511; 
end 


else 

begin 

START SEC = ZERO; 
ROW.N0M = .COL.NUM; 


! I s this a 64k chip 


!The first colusn address starts at 128 
!The first sector starts at 256 
!The end sector ends at 511 


!The start sector starts at zero 
! At the first sector the colusn = row 


if .8NK.NUn.SEC eql 127 then END.SEC = 127 else END.SEC = 255; ! Is this a 16k chip 


end; 

ADJACENT.CNT = ZERO; i Clear the adjacent count 

I Now search thru the error map and find this. columns 
! adjacent failing rows using row_num as a pointer to the 
! adjacent row. 


incr SEC.NUN from .START.SEC to .END.SEC do 


{Search alt these sectors 
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3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3913 

3914 

3915 

3916 

3917 

3918 

3919 

3920 

3921 

3922 

3923 

3924 

3925 

3926 

3927 

3928 

3929 

3930 

3931 

3932 

3933 

3934 

3935 

3936 
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begin 

WRD. INDEX = .ROW.NUM/16; 


iCalculate which word this row is in 


if .ERROR.MAP C.SEC.NUM, .WRD.INDEX, FULL.WRD] neq ZERO Ms this row bit set 
then 

begin 

BIT.INDEX = .ROW.NUM mod 16; iCalculate the rows word bit position 

if .ERROR.MAP C.SEC.NUM, .WRD.INDEX, .BIT.INDEX, ONE, ZERO] eql 1 
then 

ADJACENT CNT = .ADJACENT.CNT ♦ 1; !Up the adjacent count 

REM TBL r.REM PTR, COL] = .COL NUM; .'Load the rem.tbl with this colimm no. 

COPlED.REM.TflC C.REM.PTR, C0L3”= .COL.NUM; iLoad the copied table too 

selectone .SEC.NUM of iFind which physical row number this is 
set 

CO to 127, 256 to 383] : .'Are we in quad 0 or 2 

RENTAL C.REM PTR, ROW] = .WRD_INDEX*16 ♦ .BIT.INDEX; 

COPTED.REM.TBC C.REM.PTR, ROW] = .WRD.INDEX*16 ♦ .BIT.INDEX; 
end; 

C128 to 255, 384 to 511] : !Are we in quad 1 or 3 
begin 

REM TBL C.REM PTR, ROW] = .WRD.INDEX*16 ♦ .BIT.INDEX ♦ 128; 
C0PlED.REM.T8C C.REM.PTR, ROW] = .WRD.INDEX*16 ♦ .BIT.INDEX ♦ 128; 
end; 

tes; 

REM.PTR = .REM.PTR ♦ 1; !Up the rem.ptr pointer 

if .ADJACENT.CNT eql .C0l.CNT.T8L C. COL.NUM] then ex it loop; 

end; 

end; 

ROW.NUM = (.ROW.NUH - 1) and Xo'177'; ! Decrement the row count and avoide over run 

end; 


end; 

end; 

return .REM.PTR; 
end; 


iReturn how many row column pairs were xfered 


.S8TTL X. TO. REM. TBL ROUTINE DECLARATIONS 
X. TO. REM. TBL: 


007624 004167 000000G 



IBSKEL4 




REV B PATCH 00 

ROUTINE 

DECLARATIONS 

1 

007630 

162706 

000014 

040376* 


007634 

016766 

000012 

007642 

005046 



007644 

000167 

000520 


007650 

011604 



007652 

105764 

001002* 


007656 

001002 



007660 

000167 

000502 


007664 

021627 

000177 


007670 

003412 



007672 

011601 



007674 

162701 

000200 


007700 

012766 

000400 

000010 

007706 

012766 

000777 

000002 

007714 

000416 



007716 

005066 

000010 


007722 

011601 



007724 

026727 

040416* 

000177 

007732 

001004 



007734 

012766 

000177 

000002 

007742 

000403 



007744 

012766 

000377 

000002 

007752 

005066 

000012 


007756 

016604 

000010 


007762 

005304 



007764 

000574 



007766 

010146 



007770 

012746 

000020 


007774 

004767 

OOOOOOG 


010000 

010066 

000012 


010004 

010400 



010006 

006300 



010010 

006300 



010012 

006300 



010014 

010005 



010016 

066605 

000012 


010022 

006305 



010024 

005765 

010230* 


010030 

001544 



010032 

010146 



010034 

012746 

000020 


010040 

004767 

OOOOOOG 


010044 

010066 

000014 


010050 

012746 

010230* 


010054 

060516 



010056 

010046 



010060 

012746 

000001 


010064 

005046 



010066 

004767 

OOOOOOG 


0^10072 

062706 

000010 


010076 

005300 
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JSR 

R1.SSAVE5 


SUB 

#14. SP 


MOV 

MAX. CHIP. COL. 12(S?) 


CLR 

-(SP) 


JMP 

17$ 

1$: 

MOV 

(SP).R4 


TSTB 

C0L.CNT.TBL(R4) 


BNE 

2$ 


JMP 

16$ 

2$: 

CMP 

(SP) ,#177 


BLE 

3$ 


MOV 

(SP). R1 


SUB 

#200, R1 


MOV 

#400,10(SP) 


MOV 

#777, 2( SP) 


BR 

5$ 

3$: 

CLR 

10(SP) 


MOV 

(SP).RI 


CMP 

BNK. NUN. SEC. #177 


BNE 

4$ 


MOV 

#177,2(SP) 


BR 

5$ 

4$: 

MOV 

#377. 2 (SP) 

5$: 

CLR 

1 2 ( SP) 


MOV 

10(SP) ,R4 


DEC 

R4 


BR 

15$ 

6$: 

MOV 

RI.-(SP) 


MOV 

#20. -(SP) 


JSR 

PC.BLSDIV 


NOV 

R0.12(SP) 


MOV 

R4.R0 


ASL 

RO 


ASL 

RO 


ASL 

RO 


MOV 

R0.R5 


ADD 

12(SP) ,R5 


ASL 

R5 


TST 

ERROR. MAPIR5) 


BEQ 

14$ 


MOV 

RI.-(SP) 


MOV 

#20, -(SP) 


JSR 

PC.BLSMOD 


MOV 

R0,14(SP) 


NOV 

fERROR. MAP, -(SP) 


ADD 

R5,(SP) 


MOV 

RO,-(SP) 


MOV 

#1,-(SP) 


CLR 

-(SP) 


JSR 

PC.8LSGT2 


ADD 

#10, SP 


DEC 

RO 


TOPS-20 Bliss-16 V2(212) Page in 
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3785 

3847 


; COL.NUM,* 3856 


COL. MUM,* 3865 

COL. NUN, ROW. NUN 3868 

*, ROW. NUN 

*, START. SEC 3869 

*. END. SEC 3870 

3865 

START. SEC 3874 

COL.Nlfl.ROW.NUH 3875 

3877 

•.END. SEC 
•.END. SEC 

ADJACENT. CNT 3881 

START.SEC.SEC.Nlfl 3888 

SEC. NUN 

ROW. NUN,* 3890 


; *.WRD. INDEX 

; SEC. NUN,* 3892 


; WRD. INDEX,* 

; ROW. NUN,* 3895 

; *,BIT. INDEX 

3897 

; BIT. INDEX,* 
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010100 

001117 



BN 

010102 

005266 

000022 


INi 

010106 

016605 

000044 


MOV 

010112 

006305 



ASL 

010114 

012702 

001402* 


MOV 

010120 

060502 



ADD 

010122 

116612 

000010 


MOVB 

010126 

012703 

001712* 


MOV 

010132 

060503 



ADD 

010134 

116613 

000010 


MOVB 

010140 

005704 



TST 

010142 

002403 



BIT 

010144 

020427 

000177 


CMP 

010150 

003406 



BLE 

010152 

020427 

000400 

7$: 

CMP 

010156 

002420 



BIT 

010160 

020427 

000577 


CMP 

010164 

003015 



BGT 

010166 

016600 

0C0016 

8$: 

MOV 

010172 

006300 



ASL 

010174 

006300 



ASL 

010176 

006300 



ASL 

010200 

006300 



ASL 

010202 

066600 

000014 


ADD 

010206 

110062 

000001 


MOVB 

010212 

110063 

000001 


MOVB 

010216 

000433 



BR 

010220 

020427 

000200 

9$: 

CMP 

010224 

002403 



BLT 

010226 

020427 

000377 


CMP 

010232 

003406 



BLE 

010234 

020427 

000600 

10$: 

CMP 

010240 

002422 



BLT 

010242 

020427 

000777 


CMP 

010246 

003017 



BGT 

010250 

016600 

000016 

11$: 

MOV 

010254 

006300 



ASL 

010256 

006300 



ASL 

010260 

006300 



ASL 

010262 

006300 



ASL 

010264 

066600 

000014 


ADD 

010270 

010005 



MOV 

010272 

062705 

000200 


ADD 

010276 

110562 

000001 


MOVB 

010302 

110563 

000001 


MOVB 

010306 

005266 

000044 

12$: 

INC 

010312 

005005 



CLR 

010314 

016603 

000010 


MOV 

010320 

156305 

001002* 


BISB 

010324 

026605 

000022 


CMP 

010330 

001003 



BNE 

010332 

062706 

000010 


ADD 


E 12 
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13$ 



22(SP> 

; ADJACENT. CNT 

3900 

44<SP),R5 

; REM.PTR,* 

3901 


R5 

#REM. TBL.R2 
P5.R2 


10(SP),(R2> 

COL .NUM,* 

3902 

#C0PIED.REM.TBL,R3 

R5.R3 


10(SP) , (R3> 

COL.NUM.* 

3904 

R4 

7$ 

SEC.NUM 

R4,#177 ; 

8$ 

SEC.NUM,* 


R4.#400 

9$ 

SEC.NUM,* 


R4,#577 

9$ 

SEC.NUM,* 

3909 

16(SP) ,R0 

RO 

RO 

RO 

RO 

WRD. INDEX,* 

14(SP).R0 ; 

R0.KR2) 

BIT. INDEX,* 

3910 

R0.1(R3> 


12$ 


3904 

R4,#200 

ioi 

R4,#377 

ni 

SEC.NUM,* 


SEC.Nl*,* 


R4,#600 

12$ 

R4 .#777 

12$ 

16<SP),R0 

RO 

RO 

RO 

RO 

14(SP) ,R0 

R0.R5 
#260, R5 

R5,1(R2) 

SEC.NUM,* 


SEC.NLH,* 


WRD. INDEX,* 

3915 

BIT. INDEX,* 

3916 

R5.KR3) 


44 (SP) 

REM.PTR 

3920 

R5 


39?2 

10(SP),R3 

COL.CNT.TBL(R3).R5 

COL.NUM,* 


22(SP) ,R5 

13$ 

#10, SP 

ADJACENT. CNT,* 




Page 1'5 
SEQ 0148 


BSKEL4 

REV B PATCH 00 

Cl 0336 000413 
01C340 022626 
010342 010105 
010344 005305 
010346 010501 
010350 042701 
010354 022626 
010356 005204 
010360 020466 
010364 003600 
010366 005216 
010370 021666 
010374 002002 
010376 000167 
0 i 0402 016600 
010406 062706 
010412 000207 


ROUTINE DECLARATIONS 


1 77600 


000002 


000014 

177246 

000034 

000016 


; Routine Size: 188 words 
; Maximum stack depth per in^ocatior.: 


13$: 

BR 

CMP 

14$: 

MOV 

15$: 

DEC 

MOV 

BIC 

CMP 

INC 

16$: 

CMP 

BLE 

INC 

17$: 

CMP 

18$: 

BGE 

JMP 

MOV 


ADD 

RTS 


21 words 
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16$ 


3894 

<SP>*. (SP>* 

• 

R1.R5 

R5 

; ROW.NUM, * 

3928 

R5.R1 

; *. ROW.NUM 


#1 77600. R1 

; *. ROW.NUM 

3889 

(SP)*.(SP)* 

• 

R4 

; SEC.NUM 

3888 

R4,2(SP) 

; SEC.NUM. END. SEC 


6$ 

(SP) 

; COL.NLM 

3847 

(SP) , 14(SP) 

18$ 

1$ 

; COL.NLM,* 

3786 

34<SP),R0 

; REM.PTR,* 

#16. SP 

PC 

• 

3785 
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3937 

3938 

3939 

3940 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

3948 

3949 

3950 

3951 

3952 

3953 

3954 

3955 

3956 

3957 

3958 

3959 

3960 

3961 

3962 

3963 

3964 

3965 

3966 

3967 

3968 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 


routine COL.PURGE (COL.SEL, QUANTITY. LST_REM_ENTRY) : novalue = 
begin 


♦♦ 

Functional Description: 

The remainder and copied remainder table are loaded with all the 

the remaining single cell failures scattered 

through out the chip. These tables are Interigated 

for tne best choice for blasting and once a row 

column pair is selected for blasting it's occurance 

in these tables must be taken out. 

This global routine will search the remainder tables 
selected column address for blasting and purges the 
table of its occurance and also its row pair address. 

Once the selected column address is purged the remainder 
table is copied into the copied remainder table. 

Formal Parameters: 

C0L - SEL: , t 

This argument points to the column selected 

for blasting and the column to be purged from 

the table. 

QUANTITY: , t . 

Indicates how many occurances of this column 
to expect to find in the table. 

LST RE-ENTRY : 

Points to the last table entry ♦ 1. 


Implicit Inputs: 

REH.TBL. C0PIED.REN.T8L 


Implicit Outputs: , 

The remainder and copied remainder tables are purged 
of column address selected for blasting. 

Completion codes: 
none 


Side Effects: 
none 


If only one row or column pair is left 
in the remainder table then there is 
no need to purge. 


if .LST.REN.ENTRY gtr ONE 
then 
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SEQ 0149 


! Purge the columns if remainder table entries > 1 



9SKEL4 

REV B PATCH 00 ROUTINE DECLARATIONS 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLl.1 (33) 


3989 

3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 


H 12 
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SEO 0150 


begin 


Search through the remainder table looking 
for the occurance of this selected column for 
purging. Pur loc will point to the table 
location where this column is first found. 


incr PUR LOC from 0 to .LST.REM.ENTRY - 1 do .'Purge the remainder table of this column 
begin 

! Is the contents of this table entry 
! equal to the selected column for purging. 


if .REM TBL C.PUR.LOC, C0L3 eql .COL.SEL !Is this column to be purged 
then 

begin 

i 

I If this column is located at the bottom 
! of the table then don't physically move 
! the entries around. When this routine 
! returns the Ist.rem.entry will be adjusted 
! to effectively mask these columns out of 
! the table. 


if (.PUR LOC ♦ .QUANTITY) neq .LST.REM.ENTRY ! Is this column last in table 
then 

begin 

! The selected columns for purging are not at 
: the end of the buffer so their table placements 
! must be shuffled around to purge them out. 


incr PURGE from .PUR LOC to (.LST REM £ <TRY - 1) - .QUANTITY do 
REM.T8L [.PURGE. R0.CL3 = .REA.T8C L. PURGE ♦ .QUANTITY. R0.CL3; 


end; 

ver czmlcb moved this incr loop here 

Once the remainder table has been purged of 
this selected column the copied rem. table 
must get a fresh copy to reflect the new 
table arrangement. 


incr COPY from 0 to .LST REM ENTRY - 
C0PIED.REM.T8L [.COP?, R0.CL3 * 


.QUANTITY do ICopy rem tbll to copied tbl 

.REM.TBL [.COPY. R0.CL3; 



BSKfcLA 

REV 8 PATCH 00 
4041 

: 4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 


ROUTINE DECLARATIONS 


exit loop; 
end; 

end; 


end; 

end; 


010414 004167 

010420 005746 
010422 016605 
010426 020527 
010432 003460 
010434 005016 
010436 000454 
010440 011601 
010442 006301 
010444 005004 
010446 156104 
010452 020466 
010456 001043 
010460 016603 
010464 010300 
010466 061600 
010470 020005 
010472 001420 
010474 010502 
010476 160302 
010500 01 1t04 
010502 005304 
010504 000410 
010506 010400 
010510 006300 
010512 010301 
010514 060401 
010516 006301 
010520 016160 
010526 005204 
010530 020402 
010532 002765 
010534 010502 
010536 160302 
010540 005000 
010542 000406 
010544 010001 
010546 006301 
010550 016161 


000000G 

000020 

000001 


001402* 

000024 

000022 


001402* 001402* 


001402* 001712' 


.SB7TL 

COL. PURGE : 

JSR 

rsr 

NOV 

CNP 

BLE 

CLR 

BR 

IS: NOV 

ASL 
CLR 
BIS8 
CNP 
BNE 
NOV 
NOV 
ADD 
CNP 
BED 
NOV 

sue 

NOV 

DEC 

8R 

2$: NOV 

ASL 
NOV 
ADD 
ASL 
NOV 

3S: INC 

CNP 

. BLT 

4$: NOV 

SUB 
CLR 
BR 

5S: NOV 

ASL 
NOV 


18 

18 


I 12 

-Nar-1982 16:07:57 
-N*r-1982 15:44:41 


TO PS-20 Bliss-16 V2(212) 

PA : <NEALE>PNSKL4.BL I . 1 (33) 


!Exit the loop when purge is complete 


COL. PURGE ROUTINE DECLARAUOnS 

R1.SSAVE5 

-(SP) 

20(SP) ,R5 

R5.A1 

9$ 

(SP) 

8 $ 

(SP).RI 

R1 

R4 

REN. T8L <R1 ) ,R4 
R4.24<SP> 

7$ 

22(SP),R3 
R3.R0 
(SP). RO 

ro.rS 

4$ 

R5.R2 
R3.R2 
(SP). R4 
R4 
3S 

R4.R0 

RO 

R3.R1 

R4.R1 

R1 

REN. TBL (R1 ) .REN. T8L (RO) 

R4 

R5. R2 
R3.R2 
RO 
6 $ 

R0.R1 

R1 

REN. TBL (R1). COPIED. REN. TBL (R1) 


; LST. REN. ENTRY.* 

; PUR.LOC 
; PUR.LOC,* 


•.COL.SEL 

QUANTITY.* 

PUR.LOC.* 


; PUfl.LOC.PURGc 
; PURGE 

; PURGE,* 

; PURGE.* 

; PURGE 
; PURGE.* 

• 

; COPY 
; COPY.* 
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SEP 0151 


3937 

3987 

3998 

4005 


4017 


4026 

4027 


4026 

4039 

4040 



J 12 


BSKEL4 






16-Mar-1982 

16:07:57 

TOPS-20 Bliss-16 V21212) 

Page 1 1 7 

REV B PATCH 00 

ROUTINE DECLARATIONS 




18-Mar-1982 

15:44:41 

PA:<NEALE>PMSKL4.BLI . 1 (33) 

SEQ 0152 

010556 

005200 



INC 

RO 



; COPV 

4039 

010560 

020002 


6S: 

CMP 

R0.R2 



; COPY .• 


010562 

003770 



BLE 

5$ 





01 0564 

000403 



BR 

9S 



0 

4042 

010566 

005216 


7$: 

INC 

<SP) 



; PUR. IOC 

3998 

010570 

021605 


8$: 

CMP 

<SP).R5 



; PUR.LOC.* 


010572 

002722 



BLT 

IS 





010574 

005726 


9S: 

TST 

(SP) + 



• 

3937 

010576 

000207 



RTS 

PC 





; Routine Size: 

58 words 








; Maximum stack 

depth per invocation: 

7 words 
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4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 


4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 


routine ROW PURGE (ROU.SEL, QUANTITY. LST.REM.ENTRY) : novalue = 
begin 


Functional Description: 

This global routine is exactly the same as column 
purge except that the copied remainder table is 
search and purged of row address. 

Formal Parameters: 

ROW SEL: 

This argument points to the row to be 
purged from the table. 

QUANTITY: 

Indicates how many occurances of this column 
to expect to find in the table. 

LST REM ENTRY: 

Points to the last table entry ♦ 1. 

Implicit Inputs: 

REM.TBL. C0PIED.REM.T8L 

Implicit Outputs: 

The remainder and copied remainder tables are purged 
of all occurances of row addresses selected for blasting. 

Completion codes: 
none 

Side Effects: 
none 


♦ 

If only one row or column pair is left 
in the copied_rem_tble then there is 
no need to purge. 


if ,LST_REM_£NTRY gtr ONE !Purge the row if copied table entries > 1 

then 

begin 
' + 

1 Search through the copied_rem_tble looking 
! for the occurance of this selected row for 
! purging. Pur.loc will point to the table 
! location where this row is first found. 


incr PUR L0C from 0 to .LST REM ENTRY - 1 do 
begin 


Page 118 
SEQ 0153 


.'Purge the copied rem table 
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SEQ 0154 


BSKEL4 

REV B PATCH 00 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 


18-Mar- 1982 16:07:57 T0PS-20 Bliss-16 V2(212) 

ROUTINE DECLARATIONS 18-Har-1982 15:44:41 PA:<NEALE>PMSKL4.BLI .1 (34) 


! Is the contents of this table entry 
! equal to the selected row for purging. 

if .COPIED_REM_TBL C.PUR.L0C, ROW] eql .ROW.SEL !Is this the row to be purged 
then 

begin 

i 

i If this row is located at the bottom 
! of the table then don't physically move 
! the entries around. When this routine 
! returns the lst_rem_entry will be adjusted 
! to effectively mask these rows out of 
! the table. 


if (.PUR.LOC ♦ .QUANTITY) neq .LST.REM.ENTRY !Is this the last table entry 
then 

begin 

j The selected rows for purging are not at 
! the end of the buffer so their table placements 
! must be shuffled around to purge them out. 


incr PUR6E from .PUR.LOC to < .LST REM.ENTRY - 1) - .QUANTITY do 

COPIED.REM.TBL [.PURGE, RO.ClU = .COPIED_REM_TBL C. PURGE ♦ .QUANTITY, R0.CL3; 


end; 

ver czmlcb moved this incr loop here 

Once the remainder table has been purged of 
this selected row the copied.rem table 
must get a fresh copy to reflect the new 
table arrangement. 


incr COPY from 0 to 
REM.TBL [.COPY, 


.LST REM ENTRY - .QUANTITY do !Copy copied to rem 

R0_C[J =”.C0PIED.REM.T8L C.COPY, R0.CL3; 


exitloop; !Exit loop when purge is completed 

end; 


end; 


end; 


end; 
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ROW. PURGE ROUTINE DECLARATIONS 


TOPS-20 Bliss-16 V2C212) 
PA:<NEALE>PMSKL4.BLI.1 (34) 
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SEQ 0155 


R1.SSAVE5 
-(SP) 

20(SP) ,R5 ; LST.RI 

R5,#1 

9$ 

(SP) ; PUR.LOC 

8 $ 

(SP).RI ; PUR. LI 

R1 
R4 

COPIED. REM.TBL*1(R1).R4 
R4,24(SP) ; ‘.ROW 

7S 

22(SP) ,R3 ; QUANT 

R3.R0 

(SP).RO ; PUR.L 

R0.R5 

4$ 

R5,R 2 
R3.R2 

(SP) ,R4 ; PUR.L 

R4 ; PURGE 

3$ 

R4,R0 ; PURGE 

RO 

R3.R1 

R4.R1 ; PURGE 

R1 

COPIED. REN. TBL(RI), COPIED. REM. TBL(RO) ; 


LST. REM. ENTRY,* 


PUR.LOC,* 


*,ROW.SEL 

QUANTITY,* 

PUR.LOC,* 


PUR.LOC, PURGE 
PURGE 

PURGE,* 


PURGE,* 


R4 

R4,R2 

2 $ 

R5,R2 

R3,R2 

RO 

6S 

R0,R1 

R1 

COPIED . REM. TBL <R1 ) ,REM. T8L (R1 ) 
RO 

R0.R2 

5J 

9$ 

(SP) 

(SP). R5 

(SP)* 

PC 


PURGE 

PURGE,* 


COPY.* 


COPY 

COPY.* 


; PUR.LOC 
; PUR.LOC.* 


4119 



BSKEL4 

REV B PATCH 00 ROUTINE DECLARATIONS 
; Maximum stack depth per invocation: 7 words 


N 12 

18-Mar-1982 16:07:57 
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TOPS-20 Bliss— 16 V2(212) 
PA:<NEALE>PMSKL4.BLI .1 <34> 
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SEQ 0156 


\ 


BSKEL4 

REV B PATCH 00 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 


18-Nar-1982 16:07:57 T0PS-20 Bliss-16 V2(212> 

ROUTINE DECLARATIONS 18-Nar-1982 15:44:41 PA : <NEALE>PMSKL4 .BL I . 1 (35) 

routine COL.SORT (LST.REM.ENTRY) : novalue = 
begin 


Functional Description: 

Before the remainder table is interigated for columns 
the column side of the table must be sorted. 

This global routine will sort the column side of the 
remainder table and the row pair will get moved 
around with the column pair. 

Formal Parameters: 

LST.REH.ENTRY: 

Points to the last remainder table entry 

Implicit Inputs: 

REH.TBL 

Implicit Outputs: 

The remainder tables column addresses are sorted 
in ascending order. 

Completion codes: 
none 

Side Effects: 
none 


local 

TEMP; 


! Temporary storage for bubbled entry 


If there is only one table entry 
remaining then there is no need to 
sort the table. 


if .LST.REM.ENTRY gtr ONE .'Sort the table if entries are > 1 

then 

begin 

!♦ 

! Index each table entry and bubble up 
! table values in ascending order. 


ir.cr PASS from 1 to .LST.REM.ENTRY - 1 do 
!♦ 

! Bubble up this table entry so its 
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SE0 0157 


iBubble sort table until in asending order 


BSKEL4 

REV B PATCH 00 

<.204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 


ROUTINE DECLARATIONS 

j in ascending order. 


18-Har-1?82 16:07:57 T0PS-20 Bliss-16 V2(212> 

18-Har-1982 15:44:41 PA:<NEALE>PNSKL4.BU - 1 (35) 


Page 123 
SEO 0158 


incr index 


from 0 to ((.1ST REM ENTRY - 2) - (.PASS - 1>> do 

! Bubble up the biggest number 


Is this table entry greater then the next 
table entry and if so then swap the two 
entries else its in ascending order. 


if .REM T8L [.index, COLD gtr .REM.TBL C. index ♦ 1, COLD 

“ !Is the next entry > this one 

then 

Te8p°= .REM T8L [.index. R0.CU; JCopy the bi 
REM TBL [.index, R0.CU = .REM.TBL [.index ♦ 1, 

REM*TBL [.index ♦ 1, R0.CL3 = .TEMP; .'Put 

end; 


er entry 

_ CL3; !Put the smaller entry here 
tfie bigger entry in next entry 


end; 

end; 


010764 004167 

010770 005746 
010772 016646 
010776 021627 
011002 003441 
011004 011600 
011006 162700 
011012 005003 
011014 000431 
011016 010005 
011020 160305 
011022 010501 
011024 005201 
011026 005004 
011030 000421 
011032 010405 
011034 006305 
011036 012702 
011042 060502 
011044 010405 
011046 006305 
011050 062705 
011054 121215 

011056 101405 

011060 011266 



.SBTTl 

COL. SORT ROUTINE DECLARATIONS 



000000G 

COL. SORT: 

R1,$SAVE5 



JSR 

• 

9 



TST 

-<SP> 


LST.REM, 

000020 

MOV 

20(SP).-(SP) 

(SP).#1 

9 

000001 

CMP 



BLE 

6$ 




MOV 

(SP) ,R0 
#2.R0 

9 


000002 

SUB 


PASS 

CLR 

R3 

« 

9 


BR 

5$ 




1$: MOV 

R0.R5 

9 

PASS,* 


SUB 

R3.R5 

9 


MOV 

R5.R1 




INC 

R1 


INDEX 


CLR 

R4 

• 

9 


BR 

4$ 


INDEX.* 


2$: NOV 

R4.R5 

• 

9 


ASL 

R5 



001402' 

MOV 

#REN.TBL,R2 



ADD 

R5.R2 


INDEX.* 


MOV 

R4.R5 

9 


ASL 

R5 



001404' 

ADD 

#REM.TBL*2,R5 



CMPB 

(R2MR5) 




BLOS 

Z% 


* .TEMP 

000002 

MOV 

(R2),2(SP) 

• 


4152 

4191 

4207 

4200 

4207 


4215 


4219 


i 



BSKE14 

REV B PATCH 00 ROUTINE DECLARATIONS 


011064 

011066 

011072 

011074 

011076 

011100 

011102 

011104 

011106 

011110 


011512 

016615 

005204 

020401 

003755 

005203 

020316 

002744 

022626 

000207 


000002 


; Routine Size: 43 words 
; Maximum stack depth per invocation: 


D 13 

18-Mar- 1982 16:07:57 
18-Mar- 1982 15:44:41 



MOV 

(R5> . (R2) 

» 


MOV 

2(SP).(R5> 

• 

3J : 

INC 

R4 

# 

4S : 

CMP 

R4.R1 

0 


BLE 

2$ 


5$: 

INC 

R3 

# 


CMP 

R3. (SP) 

0 


BLT 

IS 


6$: 

CMP 

(SP)*.(SP>* 

0 


RTS 

PC 



T0PS-20 Bliss-16 V2<212> 
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TEMP.* 

INDEX 

INDEX.* 
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4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 


rout inf ROW.SORT (LST_RE«.ENTRV) : novalue = 
begin 


Functional Description: 

This global routine serves the same purpose as 
column sort except the copied remainder table 
row addresses are sorted in ascending order. 

Formal Parameters: 

LST.REH.ENTRY: 

Points to the last remainder table entry 

Implicit inputs: 

COPIED.REH.TBL 

Implicit Outputs: 

The copied remainder tables row addresses are sorted 
in ascending order. 

Completion codes: 
none 

Side Effects: 
none 


local 

TEMP; 


ITempory storage for bubbled entry 


If there is only one table entry 
remaining then there is no need to 
sort the table. 


if .LST.REH.ENTRY gtr ONE JSort the table if entries > 1 

then 

begin 

!♦ 

Index each table entry and bubble up 
! table values in ascending order. 


incr PASS from 1 to .LST.REN.ENTRY - 1 do JBubble sort table until in aseending order 


Bubble up this table entry so its 
in ascending order. 
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^279 

<.280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 


F 13 

18-Har-1982 16:07:57 T0PS-20 Bliss-16 V2<212> 

ROUTINE DECLARATIONS 18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.BLI.1 (36) 

incr index front 0 to ((.LST_REM_ENTRY - 2) - (.PASS - D) do 

!8ubble up the biggest number 

I 

i Is this table entry greater then the next 
! table entry and if so then swap the two 
! entries else its in ascending order. 


if .C0PIED.REM.T8L [.index. ROW] gtr .C0PIED.REM.T8L [.index ♦ 1, ROW] 
then 


Te8p = .COPIED REM.T8L [.index. RO CL]; !Copy the bigger entry 
COPIED REM T8L [.index. RO.CL] = .COPIED REM T8L [.index + 1. RO.CL]; 
C0PIED”REM”T8L [.index * 1. RO.CL] = .TEMP; ’Put the bigger entyr in next entry 
end; 


end; 

end; 


011112 004167 


011116 

011120 

011124 

011130 

011132 

011134 

011140 

011142 

011144 

011146 

011150 

011152 

011154 

011156 

011160 

011162 

011164 

011170 

011172 

011174 

011176 

011202 

011210 

011212 

011216 

011220 

011224 

011226 


005746 

016646 

021627 

003443 

011600 

162700 

005003 

000433 

010005 

160305 

010501 

005201 

005004 

000423 

010405 

006305 

012702 

060502 

010405 

006305 

062705 

126265 

101405 

011266 

011512 

016615 

005204 

020401 


000000G 

000020 

000001 

000002 


001712* 

001714* 

000001 000001 
000002 
000002 


ROW. SORT: 


.S8TTL ROW. SORT ROUTINE DECLARATIONS 


IS: 


2S: 


3S: 

4$: 


JSR R1.SSAVES 

TST -(SP) 

MOV 20(SP).-(SP) 

CMP (SP).fl 

8LE 68 

MOV (SP).RO 

SUB M2 , RO 

CLR R3 

BR 5$ 

MOV R0.R5 

SUB R3.R5 

MOV R5.R1 

INC R1 

CLR R4 

BR 4$ 

NOV R4.R5 

ASL R5 

MOV f COPIED , REM. TBL ,R2 

ADD R5.R2 

MOV R4.R5 

ASL R5 . r 

ADD #COPIED.REM.TBL*2.R5 

CMPB 1(R2),1(R5) 

BLOS 38 

MOV (R2).2(SP) 

MOV (R5).(R2) 

MOV 2(SP). (R5) 

INC R4 

CMP R4.R1 


; LST. REM. ENTRY.* 

a 

; PASS 
• 

; PASS.* 

; INDEX 
; INDEX.* 

; INDEX.* 


*.TEMP 

TEMP.* 

INDEX 

INDEX.* 
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4227 

4263 

4279 

4272 

4279 


4287 


4290 

4291 

4292 
4279 



REV B PATCH 00 ROUTINE DECLARATIONS 


011230 003753 
011232 005203 
011234 020316 
011236 002742 
011240 022626 
011242 000207 

; Routine Size: 45 words 
; Maximum stack depth per 



BLE 

5$: INC 

CMP 
BLT 

6$: CMP 

RTS 


invocation: 8 words 


G 13 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 

TOPS-20 Bliss-16 V2<212> 
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21 

R3 

; PASS 

4272 

R3.(SP) 

; PASS,* 


1* 

<SP)*.<SP>* 

0 

4227 

PC 


L 
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4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 


routine S.BLAST.TBL (SNA. NUN) = 
Degin 


Functional Description: . . 

To determine if a bank has any additional 
failing row or colimns the blast table is 
searched for any bits set. 

If bits are set then this bank must be 
pm'ed. If no bits are set then this bank 
can be skipped. 

This global routine searches the blast table at 
the selected banks and sees if any bits are set 
indicating new errors were found in this bank. 

Formal Parameters: 

BNK NUM: 

~ Points to the bank to be searched 

Implicit Inputs: 

BLAST.TBL. NAX.CHIP.COL 

Implicit Outputs: 
none 

Completion codes: 

A true indicator is returned if new errors 
exist and a false indicator is returned if 
no new errors are found. 

Side Effects: 
none 


! Search all row and column blast information 
! stored in the blast table for this bank and 
! see if any new 'ows or columns need to be 
! blasted. If new blast info is found then 
! return true as the routines value else return 
! false indicating that no blasting is to be done 
J for this bank. 


incr SEARCH frn» C to .NAX_CHIP_C0L*2 - 1 do !Look at all rows and cols for this bank 

begin 

i 

j Does this table location contain new 
! prom blast information? 

i 


Page 128 
SE0 0163 



BSK.EL4 

REV B PATCH 00 


<,350 

4351 

4352 

4353 

4354 

4355 

4356 


011250 
011254 
011256 
011262 
011264 
011266 
011270 
011272 
011274 
011276 
011300 
011302 
011306 
011310 
011314 
011316 
011320 
011322 
011324 
01 1 326 


006303 

016600 

000300 

105000 

006300 

005001 

000412 

010002 

060102 

006302 

005762 

001403 

012700 

000207 

005201 

020103 

002764 

005000 

000207 


ROUTINE DECLARATIONS 


I 13 
■Rar- 
1 8-Mar- 


18-Mar-1982 16:07:57 
-1982 15:44:41 
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if . BLAST. TBL C.BNK.NUM. .SEARCH. FULL.URDD neq ZERO then return TRUE; 
end; 


.'Return tru If any bits set 


return FALSE; 
end; 


!Return false if no bits are set 


.S8TTL S. BLAST. TBL ROUTINE DECLARATIONS 


000000G 

S. BLAST. TBL: 

R1.SSAVE3 


JSR 

a 

040376' 

HOV 

MAX. CHIP. COL. R3 

# 

ASL 

R3 


000012 

MO 1 ' 

Hv t 

12(SP).R0 

• 

SWAB 

RO 



CLRB 

RO 



ASL 

RO 



CLR 

R1 

• 


BR 

3$ 



1$: MOV 

R0.R2 

a 


ADD 

R1.R2 

• 


ASL 

R 2 


030372* 

TST 

BLAST. TBL (R2> 


BEO 

2$ 


000001 

MOV 

ai.RO 


RTS 

PC 



2$: INC 

R1 

• 


3S: CMP 

R1.R3 

• 


BLT 

1$ 



CLR 

RO 

0 


RTS 

PC 

0 


BNK.Nlff.* 


SEARCH 


SEARCH.* 


SEARCH 

SEARCH.* 


4298 

4344 

4351 


4344 

4351 


4344 


4299 

4298 


Routine Size: 26 words 

Maximum stack depth per invocation: 


4 words 



BSKEL4 

REV B PATCH 00 

435 7 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 
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1 8-Mar- 198< 


16:07:57 

15:44:41 
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routine S.COLUMNS (MOST.OFTEN, SUM.MOST LST.REM.ENTRY) = 
begin” 


♦♦ 

Functional Description: 

The remainder table is searched for the 
best possible choice for blasting ie 
whether to select rows or columns for 
blasting. This is done by: 

While searching through the rem.tbl count how 
many different row numbers and column numbers 
there are. 

In the lower count group (default to rows if 
counts are equal) find which member appears 
most often. 

The member which appears most often in this 
lower count group will be the one chosen for 
blasting. 

For example*' 

Suppose that these row column pairs 
exist in the remainder table. 


ROW 

2 

3 

4 

9 

10 
11 
12 

99 

100 
60 
2 


COLUMN 

5 

5 

5 

6 
6 
6 
6 
1 
1 
7 

10 


From this there are 5 different column numbers 
and column number 6 appears the most often and 
it appears 4 times. 


Therefore 


DJF = 5 

MOST OFTEN = 6 
sum. Most = 4 


Formal Parameters: 

MOST OFTEN* 

Passed by reference and stores the most 
often found column. 

SUMOFTEN: 
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; 4409 

4410 

; 4411 

; 4412 

4413 

4414 

; 4415 

; 4416 

4417 

; 4418 

4419 

4420 

; 4421 

4422 

; 4423 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4438 

4439 

4440 

; 4441 

; 4442 

4443 

4444 

4445 

4446 

; 4447 

; 4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 


ROUTINE DECLARATIONS 
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Passed by reference and stores the sum 
of the most often found column. 

LST REM ENTRY: 

Points to the last remainder entry 

Implicit Inputs: 

REM.T&L 

Implicit Outputs: 

MOST OFTEN AND SUM MOST which are passed by reference 
to tRis routine is'returned to the caller by reference 
with the column number which appears most often and the 
number of times it appears. 

Completion codes: 

The number of different column numbers which were found 
in the remainder table is returned to the caller. 

Side Effects: 
none 


local 

CUR SUM. 
PRE_SUM, 
CUR MOST, 
PRE MOST, 
DIF; 


Start out the search by defining 
! the current count, previous count 
i and different count to be one. 

I 

! Also define the first table entry 
! to be the column number to be selected 
! for blasting. 

! This is done in the event that there 
is only one table entry left to be 
! selected for blasting. 

CUR SUM = 1; 

PRE SUM = 1 ■ 

PRE'MOST = '.REM.T8L [ZERO, COLJ; 

DIF = 1; 


! Stores current sum of most often found column 
! Stores previous sum of most often found column 
! Stores current most often found colunn 
! Stores previous most often found column 
! Stores now many different columns were found 


! Current sun starts at one 
!Previous sum starts at one 

!Prev1ous most often starts at first column in table 
‘Different column count starts at one 


If only one table entry is remaining 
in the table then return with the default 
values defined above as the routines return 
values. 
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4461 

4462 

4463 

4464 

4465 

4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 
4<»80 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 

4512 
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if . LS T REM ENTRY gtr ONE 
then 

begin 

COL.SORT (.LST.REM.ENTRY); 


‘First table entry is most oftem if table entry < 1 
!Sort the column side of remainder table 


Index through the table and search for 
the column most often found and the number 
of time its found. Also search the table 
for the number of different column numbers 
! found. 


incr index from 0 to .LST.REM.ENTRY - 2 do 
begin 


!Find the sum. most often and different 


Is this table position contents the same as the 
next table contents? 

if .REM.TBL C. index. COL] eql .REM.TBL C. index ♦ 1, C0L3 ! Is this the same as the next 
then “ 

CU^MOST = .REM.TBL C. index. C0L3; 


else 


CURlSUM = .CUR.SUM + 1; 
end 

a 

begin 

DIF = .D IF ♦ 1; 

if .CUR.SUM gtr .PRE.SUM 
then 

begin 

PRE SUM = .CUR SUM; 
PRE.MOST = .CUR.MOST; 
end; 

CUR.SUM = 1; 
end; 


!Most often is this entry 
! increment the sum of the most 

! Increment the different column count 
! Is the current sum > previous sum 


ISave the sum of the current most often 
!Save the current most often 


! Start current sum back to one 


end; 


end; 


This test to see if the last set of 

unique column numbers in the table is > the previous sum 


if .CUR.SUM gtr .PRE.SUM 
then 


!Is the current sum > the previous sum 
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4513 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 


begin 

PR? SUM = .CUR SUM; 
PRE'MOST = .C'JR.MOST; 
end; 


.MOST OFTEN = .PRE MOST; 
.SUM.MOST = .PRE.SOM; 
return .DIF; 
end; 


.'Save the sum of the current most often 
.'Save the current most often 


[Return the most often found column 
.'Return the sum of the most often column 
[Return the different number of columns found 


SBTTL S. COLUMNS ROUTINE DECLARATIONS 


011330 

004167 

000000G 

S. COLUMNS: 








JSR 

R1.5SAVE5 

• 

w 

4357 

011334 

024646 



CMP 

-CSP).-(SP) 



011336 

012701 

000001 


MOV 

#1 ,R1 

; *, CUR. SUM 

4451 

011342 

010105 



MOV 

R1.R5 

; *, PRE. SUM 

4452 

011344 

005046 



CLR 

-CSP) 

; PRE. MOST 

4453 

011346 

116716 

001402* 


MOVB 

REM.TBL. CSP) 

; *, PRE. MOST 


011352 

012766 

000001 000002 


MOV 

#1 ,2<SP) 

; *.DIF 

4454 

011360 

016604 

000024 


MOV 

24 (SP) ,R4 

; LST. REM. ENTRY,* 

4463 

011364 

020427 

000001 


CMP 

R4.A1 



011370 

003444 



BLE 

65 



011372 

010446 



MOV 

R4.-CSP) 

# 

4466 

011374 

004767 

177364 


JSR 

PC. COL. SORT 



011400 

162704 

000002 


SUB 

#2,R4 

• 

# 

4475 

011404 

005002 



CLR 

R 2 

; INDEX 


011406 

000432 



BR 

55 



011410 

010203 


IS: 

MOV 

R2.R3 

; INDEX.* 

4482 

011412 

006303 



ASL 

R3 



011414 

010200 



MOV 

R2.R0 

; INDEX.* 


011416 

006300 



ASL 

RO 



011420 

126360 

001402* 001404* 


CMPB 

REM. T8L (R3) .REM. T8L*2 (RO) 



011426 

001007 



BNE 

25 



011430 

116366 

001402* 000006 


MOVB 

REM. TBL (R3) ,6CSP) 

; *, CUR .MOST 

4485 

011436 

105066 

000007 


CLRB 

7(SP) 

; CUR. MOST 


011442 

005201 



INC 

R1 

; CUR. SUM 

4486 

011444 

000412 



BR 

45 

» 

4482 

011446 

005266 

000004 

2$: 

INC 

4(SP) 

; DIF 

4490 

011452 

020105 



CMP 

R1.R5 

; CUR. SUM, PRE. SUM 

4492 

011454 

003404 



BLE 

35 



011456 

010105 



NOV 

R1.R5 

; CUR. SUM, PRE. SUM 

4495 

011460 

016666 

000006 000002 


MOV 

6<SP),2(SP) 

; CUR. MOST, PRE. MOST 

4496 

011466 

012701 

000001 

3$: 

MOV 

01 »R1 

; *. CUR. SUM 

4499 

011472 

005202 


4$: 

INC 

R2 

; INDEX 

4475 

011474 

020204 


5$: 

CMP 

R2.R4 

; INDEX,* 


011476 

003744 



BLE 

15 



011500 

005726 



T ST 

CSP)* 

• 

4465 

011502 

020105 


65: 

CMP 

R1.R5 

; CUR. SUM, PRE. SUM 

4511 

011504 

003403 



BLE 

7 % 



011506 

010105 



MOV 

R1.R5 

; CUR. SUM. PRE. SUM 

4514 

011510 

016616 

000004 


MOV 

4CSP) , (SP) 

; CUR. MOST, PRE.MOST 

4515 
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011514 
011520 
Cl 1524 
011526 
011530 

012676 

010576 

012600 

005726 

000207 

000026 

000024 

7$: 

MOV 

MOV 

MOV 

TST 

RTS 

($PH f a26(SP) 

R5.a24(SP> 

(SP)*,R0 
<SP) + 

PC 


; PRE. MOST. MOST. OF TEN 
; PRE. SUM, SUM. MOST 
; DIF,* 

0 

4518 

4519 
4358 
4357 


; Routine Size: 65 words 

; Maximum stack depth per invocation: 10 words 
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4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4564 

4565 

4566 

4567 

4568 

4569 

4570 

4571 

4572 

4573 


routine S.ROUS (MOST.OFTEN, SUMJROST. lST_REM_ENTRY> = 
begin” 


Functional Description: 

This global routine has the same functionality 
as search columns except that the copied 
remainder table is searched for row numbers. 

Formal Parameters: 

MOST OFTEN: 

Passed by reference and stores the most 
often found row address. 

SUM.0FTEN: 

Passed by reference and stores the sum 
of the most often found row address. 

1ST REM ENTRY: 

Points to the last copied remainder entry 

Implicit Inputs: , 

MOST OFTEN AND SUM MOST which are passed by reference 
to tRis routine is returned to the caller by reference 
with the row number which appears most often and the 
number of times it appears. 

Completion codes: 

The number of different row numbers which were found 
in the copied remainder table is returned to the caller. 

Side Effects: 
none 


local 

CUR.SUM. 
PRE SUM. 
CUR.M0ST. 
PRE MOST. 
DIF; 


! Stores current sur of most often found row 
! Stores previous sur of irol often found row 
! Stores current most often row found 
! Stores previous most often row found 


Start out the search by defining 
the current count, previous count 
and different count to be one. 

Also define the first table entry 
to be the row number to be selected 
for blasting. 

This is done in the event that there 
is only one table entry left to be 
selected for blasting. 
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45 74 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4606 

4607 

4608 

4609 

4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 

4622 

4623 

4624 

4625 
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CUR.SUM = 1; 
presum = 1 * 

PR E "MOST = '.COPIED REM.TBL [ZERO. ROW]; 
DIF"= 1; 


! Current sum starts at one 
[Previous sum starts at one 

'.Previous most often starts at first table enrry 
! Different row count starts at one 


If only one table entry is remaining 
in the table then return with the default 
values defined above as the routines return 
values. 


if .LST.REM.ENTRY gtr ONE ! first table entry is most often if table entry < 1 

then 

begin 

ROW.SORT (.LST.REM.ENTRY); !Sort the row side of copied rem table 

! Index through the table and search for 
! the row most often found and the number 
! of time its found. Also search the table 
! for the number of different row numbers 
! found. 


incr index from 0 to .LST.REM.ENTRY - 2 do ! Find the sum, most often and different 
begin 

j Is this table position contents the same as the 
! next table contents? 


if .COPIED.REM.TBL [.index, ROW] eql .COPIED.REM.TBL [.index ♦ 1, ROW] 
then 

begin 

CUR MOST = . COPIED REM TBl C. index, ROW]; !Most often is this entry 

OWTSUM = . CUR.SUM” ♦ 1; ! Increment the sum of most 

end” 

else 

begin 

DIF = .DIF ♦ 1; ‘Increment the different row count 


if .CUR.SUM gtr .PRE.SUM 
then 

begin 

PRE SUM = .CUR.SUM; 
PRE.MOST = .CUR.MOST; 
end; 


!Is the current sum > previous sun 


!Save the sum of the current most often 
!Save the current most often row 


CUR.SUM = 1; 
end; 


.'Start current sum back to one 



BSKEL4 

REV B PATCH 00 ROUTINE DECLARATIONS 


TOPS-20 Bliss-16 V21212) 
PA:<NEALE>PMSKL4.BLI.l (39) 


011532 

011536 

011540 

011544 

011546 

011550 

011554 

011562 

011566 

011572 

011574 

011576 

011602 

011606 

011610 

011612 

011614 

011616 

011620 

011622 

011630 

011632 

011640 

011644 

011646 

011650 

011654 

011656 

011660 
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4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 


end; 

end; 

This test to see if the last set of 

unique row numbers in table is > the previous 


IF .cur sum GTR .pre sum 
then 

begin 

PRE.SUM = .CUR SUM; 
PRE .MOST = .CUR MOST; 
end; 


!is the current sum > previous sum 


!Save the sum of the current most often 
.'Save the current most often row 


.MOST OFTEN 
.sum. Most = 

return .DIF; 
end; 


= .PRE MOST; 
•PRE.SOM; 


! Return the most often found row 
! Return the sum of the most often found row 
.'Return the number of different found rows 
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004167 

000000G 


S.ROUS: 

JSR 

R1.SSAVE5 

- 


024646 




CM P 

-(SP). -CSP) 



012701 

000001 



MOV 

#1.R1 

0 

*. CUR. SUM 

010105 




MOV 

R1,R5 

• 

0 

*. PRE. SUM 

005046 




CLR 

-(SP) 


PRE .MOST 

116716 

001713* 



MOVB 

COPIED. REM. TBL+1 ,(SP) 

• 

*. PRE .MOST 

012766 

000001 

000002 


MOV 

#1 ,2(SP) 

• 

*,DIF 

016604 

000024 



MOV 

24 (SP) .R4 

• 

LST. REM. ENTRY.* 

020427 

000001 



CMP 

R4.#1 



003444 




BLE 

6S 



010446 




MOV 

R4,-(SP) 

« 


004767 

177310 



JSR 

PC.ROU.SORT 



162704 

000002 



SUB 

#2,R 4 

• 


005002 




CLR 

R2 


INDEX 

000432 




BR 

58 



010203 



18: 

MOV 

R2.R3 

• 

INDEX.* 

006303 




ASL 

R3 



010200 




MOV 

R2.R0 

• 

INDEX.* 

006300 




ASL 

RO 



126360 

001713* 

001715* 


CMP8 

C OPI ED . REM . TBL+1 'R3) .COPIED. REM. 

,iBL*3(R0) ; 

001007 




BNE 

28 



116366 

001713* 

000006 


MOVB 

COPIED. REM. TBL+1(R3).6(SP) 

• 

0 

*. CUR. MOST 

105066 

000007 



CLRB 

7(SP) 


CUR. MOST 

005201 




INC 

R1 

0 

CUR. SUM 

000412 




BR 

48 

» 


005266 

000004 


2$: 

INC 

4(SP) 


DIF 

020105 




CMP 

R1.R5 

; 

CUR. SUM. PRE. SUM 

003404 




BLE 

38 



010105 




MOV 

R1.R5 

e 

CUR. SUM. PRE. SUM 
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4522 


4575 

4*76 

4577 

4578 
4587 


4590 

4599 

4606 


4609 

4610 
4606 
4614 
4616 

4619 


BSK-tL^ 
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011662 

016666 

000006 

000002 

3$: 

011670 

012701 

000001 


011674 

005202 



4$: 

011676 

020204 



5S: 

011700 

003744 




011702 

005726 



6S: 

011704 

020105 



011706 

003403 




011710 

010105 




011712 

016616 

000004 


7S: 

011716 

012676 

000026 


011722 

010576 

000024 



01 1 726 

012600 




011730 

005726 




011732 

000207 
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MOV 

6(SP).2(SP) 

MOV 

fl.RI 

INC 

R2 

CMP 

R2.R4 

BLE 

IS 

TST 

(SP)* 

CMP 

R1.R5 

BLE 

7* 

MOV 

R1,R5 

MOV 

4 (SP) , (SP) 

MOV 

(SP)*,826(SP) 

MOV 

R5.a24(SP) 

MOV 

(SP)*,R0 

TST 

(SP)* 

RTS 

PC 


; Routine Size: 65 words 

; Maximum stack depth per invocation: 10 words 
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; CUR. MOST, PRE. MOST 

4620 

; *, CUR. SUM 

4623 

; INDEX 

4599 

; INDEX.* 

4589 

; CUR. SUM. PRE. SUM 

4635 

; CUR. SUM, PRE. SUM 

4638 

; CUR. MOST, PRE. MOST 

4639 

; PRE. MOST, MOST. OFTEN 

4642 

; PRE. SUM, SUM. MOST 

4643 

; DIF,* 

4523 


4522 
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4646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 

4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 


ROUTINE DECLARATIONS 

routine S REM.T8L (BAD.CHIP, ALL.BAD) = 
begin” 


F 14 
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♦ ♦ 


Functional Description: , . 

The remainder table is loaded with all the 
remaining single cell ,fai lures scattered 
through out tnis failing chip. 

These scattered remaining row column pairs 
are transfered into the remainder table 
were they are interigated for the best possible 
blasting selection. 

This global routine searches the remainder table of 
the remaining row column pairs and .determines 
the best possible choice for blasting. 

Formal Parameters: 

BAD.CHIP: 

Points the the failing chip presently 
being pm'ed. 

ALL.BAD: 

Counts how many all bad rows and columns 
have been found thus far. If this count 
exceeds a count of 10 for any one chip 
then that chip is called an all bad chip and 
a 'condition A' message is printed. If 
two all bad chips are discovered in the 
the same bank then a 'condition B' message 
is printed and further testing of this 
array is aborted. 

Implicit Inputs: 

TMP.8LST.TBL 

Implicit Outputs: 

The temporary blast table Is loaded with a row 
or column address selected for blasting. 

The number of all bad row columns found by this routine 
is added to the count in all.bad. 

Completion codes: ,, L L . 

The value of all.bad which indicates how many all bad chips 
found thus far is returned. 

Side Effects: 
none 


T0PS-20 Bliss-16 V21212) 
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local 
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4698 

4699 

4700 

4701 

4702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 
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1ST REN ENTRY, 
DIF"C0LS. 

DIF ROWS, 

ROW HOST OFTEN. 
COl“HOST.OFTEN. 
ROW SUN, 
COL.SUH; 


JPoints to last entry into remainder table 

! Different no. of cols in remainder table 

IDiffernet no. of rows in remainder table 

!Host often found row in remainder table 

IHost often found column in remainder table 

!Sum of the most often found row in remainder table 

!$um of the most often found column in remainder table 


I REH TBL O; 
1ST RPH ENTRY 
LST*REH_ENTRY 


!Init the remainder and copied rem tables 
ZERO; .'Last rem entry starts at zero 

X TO REH TBL < .LST.REN.ENTRY); 

" ' IXfer column count bable to remainder and copied tables 


Repeat searching the remainder and copied 
remainder tables for the best choice of 
blasting until all remaining row/column 
pairs have been selected for blasting. 


while .LST.REH.ENTRY gtr ZERO do ISearch the remainder and copied table until empty 

begin “ 

! If the all bad count reaches 10 then 
! this chip is concidered to be all bad. 

! End this routine and return the all bad 
! count else continue searching the tables 
! for the best choice for blasting. 

I 

ALL BAD = .ALL BAD ♦ 1; ! Increment the all bad row / column count 


if .ALL.8AD gtr 9 
then 

return .ALL.BAD 

else 

begin 


* Is the all bad count > 9 

•Emit and return the count of all bad row/col 


Search the remainder and copied remainder tables and find: 


1. Number of different columns found in each. 

2. Number of different rows found in each. 

3. The column number most often found. 

4. The number of times the most often column number was found. 

5. The rcw number most often found. 

6. The number of times the most row number was found. 


DIF.COLS 

DIF.ROWS 


= S C0LUHNS (COL.HOST.OFTEN. COL.SUH. .LST.REH ENTRY); 

IFind the columns different, most Iften and sum 
= S ROWS (ROW HOST OFTEN. ROW SUH. .LST.REH ENTRY); 

!FTnd the rows different, most foten and sim 


! If occurances of unigue row numbers occured 
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<.750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 


011734 004167 


011740 

011744 

011750 

011752 

011754 

011760 

011762 

011764 

011766 

011772 

011776 

012002 

012004 

012006 

012010 

012012 
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more often then did columns numbers then choose 
rows for blasting else pick columns for blasting. 
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if .DIF.ROWS leq .DIF.COLS 
then 


'.Are different rows < different columns 



else 


TM? BLST T8L C.AtL BAD, R C3 = CLR.FLG; .'Indicate this is a bad colums 
mp-BLST-TBL C.ALL'BAD. R.C.NOD = .COL .HOST OF TEN; ! Load the failing column no. 

TMP.BLST.T8L C.ALL.BAD, NlB.NOJ = .BAD.CHIP74; .'Load the failing nibble position 

VER CZMLCB ADDED TO LST.REM.ENTRY 

COL PURGE (.COL TOST OFTEN, .COL .SUM, . LST.REM.ENTRY) ; JPurge column form talbe 

LST~REM.ENTRY =*. LST.REM.ENTRY - .COL.SUM; Realign pointer 

end; 


end; 


end; 


162706 

004767 

005002 

005046 

004767 

010002 

005702 

003543 

005266 

016603 

020327 

003403 

005726 

010300 

000534 

012746 


return .ALL.BAD; 


! Return the number all 

end; 

.S8TTL 

S.REM.TBL ROUTINE DECLARATIONS 

0000006 

S.REM.TBL: 

R1 .SSAVE5 
#10, SP 

JSR 

000010 

SUB 

173230 

JSR 

PC.I.REM.TBL 

CLR 

R2 


CLR 

-(SP) 

175644 

JSR 

PC.X.TO.REM.TBL 

MOV 

R0.R2 


1$: TST 

R2 


BLE 

5$ 

000030 

INC 

30 (SP) „ 

000030 

MOV 

30(SP),R3 

000011 

CMP 

R3,#11 

BLE 

2* 


TST 

(SPM 


MOV 

R3.R0 


B R 

65 , 

000012 

2$: MOV 

#12, -(SP) 


t all bad rows/columns found 


; LST.REM.ENTRY 


4646 

4706 

4707 

4708 


4718 

4727 

4729 


4731 

4744 
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012016 

060616 


ADD 

012020 

012746 

000012 

MJV 

012024 

060616 


ADD 

012026 

010246 


MOV 

012050 

004767 

177274 

JSR 

012054 

010004 


MOV 

012056 

012716 

000012 

MOV 

012042 

060616 


ADD 

012044 

012746 

000012 

MOV 

012050 

060616 


ADD 

012052 

010246 


MOV 

012054 

004767 

177452 

JSR 

012060 

010001 


MOV 

012062 

016616 

000044 

MOV 

012066 

012746 

000004 

MOV 

012072 

004767 

OOOOOOG 

JSR 

012076 

006303 


ASL 

012100 

062703 

030346* 

ADD 

012104 

020104 


CMP 

012106 

003034 


BGT 

012110 

052713 

100000 

BIS 

012114 

016605 

000020 

MOV 

012120 

006305 


ASL 

012122 

006305 


ASL 

012124 

006305 


ASL 

012126 

006305 


ASL 

012150 

042705 

170017 

BIC 

012134 

042713 

007760 

B1C 

012140 

050513 


BIS 

012142 

042700 

177760 

BIC 

012146 

142713 

000017 

BIC8 

012152 

150013 


BISB 

012154 

016646 

000020 

MOV 

012160 

016646 

000020 

MOV 

012164 

010246 


NOV 

012166 

004767 

176406 

JSR 

012172 

166602 

000024 

SUB 

012176 

000433 


BR 

012200 

042713 

100000 

3$: BIC 

012204 

016605 

000024 

MOV 

012210 

006305 


ASL 

012212 

006305 


ASL 

012214 

006305 


ASL 

012216 

006305 


ASL 

012220 

042705 

170017 

BIC 

012224 

042713 

007760 

BIC 

012230 

050513 


BIS 

012232 

042700 

177760 

BIC 

012236 

142713 

000017 

B1C8 

012242 

150013 


BISB 

012244 

016646 

000024 

MOV 

012250 

016646 

000024 

MOV 
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SP.(SP) 

#12. -(SP) 

COL. MOST. OFTEN.* 


SP.(SP) 

COL. SUM,* 


R2.-CSP) 

PC. S. COLUMNS 

LST. REM. ENTRY,* 


R0.R4 

*. DIF. COLS 

4746 

#1$.<SP) 


SP.(SP) 

#l2.-(S P) 

ROW.MOST. OFTEN,* 


SP.(SP) 

ROW. SUM,* 


R2.-(SP) 

PC. S. ROWS 

LST. REM. ENTRY,* 


R0.R1 

*, DIF. ROWS 

4759 

44(SP) , (SP) 

#4.-<SP> 

PC.BLSDIV 

BAD. CHIP.* 

R3 

#TMP.BLST.TBL.R3 

► 

4757 

R1.R4 

3* 

; DIF. ROWS, DIF. COLS 

4754 

#100000. (R3) 

f 

4757 

20(SP).R5 

R5 

R5 

R5 

R5 

#170017,R5 
#7760, (R3) 

R5.(R3) 

#1?7760.R0 
#17. (R35 

R0.CR3) 

20(SP).-(SP> 

; ROW.MOST. OFTEN.* 

4758 

• 

• 

4759 

; ROW.MOST. OFTEN.* 

4760 

20(SP) ,-(SP) 

; ROW. SUM,* 


R2.-(SP) 

PC, ROW. PURGE 

; LST. REM. ENTRY,* 

4761 

24<SP),R2 

; ROW. SUM, LST. REM. ENTRY 

4$ 

• 

4754 

#100000, (R3) 

# 

4765 

24 (SP) ,R5 

R5 

R5 

R5 

R5 

#17001 7, R5 
#7760. (R3) 

R5.(R3) 

#1?7760.R0 
#17, <R3) 

R0,(R3) 

. COL.MOST. OFTEN,* 

4766 

• 

4767 

24(SP).-(SP) 

; COL. MOST. OFTEN,* 

4771 

24(SP),-(SP) 

; COL. SUM,* 




£Kim L 
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SEQ 0178 

012254 

010246 



MOV 

R2,-(SP) 


; L ST. REM. ENTRY.* 


012256 

004767 

176132 


JSR 

PC, COL. PURGE 




012262 

166602 

000030 


SUB 

30(SP) ,R2 


; COL. SUM.LST. REM. ENTRY 

4772 

012266 

062706 

000022 

4$: 

ADD 

#22, SP 



4733 

012272 

000633 



BR 

IS 



47 18 

012274 

005726 


5$: 

TST 

(SP>* 



^*646 

012276 

016600 

000026 


MOV 

26(SP) ,R0 


; ALL. BAD,* 

4647 

012302 

062706 

000010 

6$: 

ADD 

#10. SP 



4646 

012306 

000207 



RTS 

PC 




; Routine Size: 

118 words 







; Maximum stack 

depth per invocation: 

20 words 
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4781 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 

4812 

4813 

4814 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4831 

4832 
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routine S COL CNT TBL (BAD.CHIP. ALL.BAD) = 
begin* 


♦ ♦ 

Functional Description: 

The column count table stores a count of 
adjacent failing columns when the error 
map is searched for bad rows. 

This global routine searches the column count 
table for column counts greater than 10. 

If a count of greater than 10 is found then this is 
called an all Bad column and the temp 
blast table is loaded with this columns 
number. The column count table at this 
all bad column number is then cleared. 


Formal Parameters: 

BAD CHIP: 

* Points a failing chip which is presently being 
pm'ed. 

ALL. BAD: , 

Keeps count of how many all bad row and or columns 
are found for this chib. If this count count 
exceeds 10 then this chip is called a all bad 
chip. 


Implicit Inputs: 

TMP.BLST.TBL, 


C0L.CNT.T8L 


Implicit Outputs: . , j , 

The temporary blast table is loaded with a row 
or column address selected for blasting. 


The number of all bad row columns found by this routine 
is added to the count in all.bad. 


Completion codes: . ...... 

The value of all bad which indicates how many all bad chips 
found thus far is returned. 


Side Effects: 
none 


Search through the column count table and 
find column numbers which were found bad 
more than 10 times. Columns which errored 
more than 10 times will immediately by chosen 
for blasting. 


TOPS-20 Bliss-16 V2 ( 21 2 ) 
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A853 

4834 

4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 

4848 

4849 

4850 

4851 

4852 

4853 

4854 

4855 

4856 

4857 

4858 

4859 

4860 

4861 

4862 

4863 

4864 

4865 

4866 

4867 

4868 

4869 


4872 

4873 

4874 

4875 

4876 

4877 

4878 


L 14 
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incr COL NUN from 0 to .NAX_CHIP_C0L - 1 do ! Search thru the column table 

begin 

! See if this column number was found 
! in error greater than 10 times. 

! If it was then up the all bad count, 

! load the temporary blast table with this 
! column number and clear this table position 
! of this column number. 


if .C0L.CNT.TBL C.COL.NUMJ gtr 10 !Is this locations count > 10 

then 

begin 

ALL BAD = .ALL BAD ♦ 1; ! Increment the all bad row/col count 

i ■ ■ 

! If the all bad count is equal to 
! 10 then exit this routine with the 
! all bad count else load the temp blast 
! with this column number. 


if .ALL BAD gtr 9 !Is the all bad count > 9 

then 

return .ALL.BAD !Exit and return all bad count 

else 

begin 

TUP 8LST T8L C.ALL BAD, R.CJ = CLR.FLG; ! Indicate that this is a bad coluan 
TMP~8LST”TBL C.ALL BAD, R C NOJ = .C0L.NUN; .'Load the bad column ntmtoer 

TMP“BLST”T8L C.ALL BAD, NlB N03 = .BAD CHIP/4; !Load the failing nibble position 
COL~CNT_TBL C.COLjlUNJ = ZEROES; .'Clear the table of this bad column 

end; 


end; 


end; 


! If the all bad count did not reach 
.' 10 then do a normal exit here with 
! the present value of all bad count. 

return .ALL.8AD; ! Ex i t and return the number of all bad rows/cols 
end; 


.S8TTL S.C0L.CNT.TBL ROUTINE DECLARATIONS 
S.C0L.CNT.T8L: 

JSR R1.JSAVE2 

CLR R 2 .* COL. NUN 


012310 004167 000000G 
012314 005002 


4781 

4834 








M 14 
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012316 

000453 



BR 

4S 


012320 

126227 

001002* 000012 

IS: 

CMPB 

C0L.CNT.TBL(R2).#12 

; *(COL.NUM) ,* 

012326 

101446 



BLOS 

3S 


012330 

005266 

000010 


INC 

10(SP> 

; ALL. BAD 

012334 

016601 

000010 


MOV 

10(SP> ,R1 

; ALL. BAD,* 

012340 

020127 

000011 


CMP 

R1.#11 


012344 

003402 



BLE 

2$ 


012346 

010100 



MOV 

R1 ,R0 

0 

012350 

000207 



RTS 

PC 


012352 

006301 


2$: 

ASL 

R1 

0 

012354 

062701 

030346* 


ADD 

#TMP.BLST.TBL.R1 


012360 

042711 

100000 


BIC 

#100000. (R1> 


012364 

010200 



MOV 

R2.R0 

; COL.NUM,* 

012366 

006300 



ASL 

RO 


012370 

006300 



ASL 

RO 


012372 

006300 



ASL 

RO 


012374 

006300 



ASL 

RO 


012376 

042700 

170017 


BIC 

#170017.R0 


012402 

042711 

007760 


BIC 

#7760. (R1) 


012406 

05001 1 



BIS 

RO.(RI) 


012410 

016646 

000012 


MOV 

12<SP),-(SP) 

; BAD. CHIP,* 

012414 

012746 

000004 


MOV 

#4.-(SP) 


012420 

004767 

000000G 


JSR 

PC.BLSDIV 


0124?4 

042700 

177760 


BIC 

#1 77760, RO 


012430 

142711 

000017 


B1CB 

#17, CR1 ) 


012434 

150011 



B1SB 

RO.(RI) 


012436 

105062 

001002' 


CLRB 

C0L.CNT.TBL(R2) 

; *( COL.NUM) 

012442 

022626 



CMP 

(SP)-MSP)* 

• 

012444 

005202 


3S: 

INC 

R2 

; COL.NUM 

012446 

020267 

040376* 

4$: 

CMP 

R2.MAX. CHIP. COL 

; COL.NUM,* 

012452 

002722 



BLT 

IS 


012454 

016600 

000010 


MOV 

10<SP) ,R0 

; ALL. BAD,* 

012460 

000207 



RTS 

PC 

• 

* 


; Routine Size: 53 words 

; Maximum stack depth per invocation: 5 words 
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4.846 

4849 

4857 

4859 

4862 

4863 


4864 


4865 

4861 

4834 


4782 

4781 
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4879 

4880 

4881 

4882 

4883 

4884 

4885 

4886 

4887 

4888 

4889 

4890 

4891 

4892 

4893 

4894 

4895 

4896 

4897 

4898 

4899 

4900 

4901 

4902 

4903 

4904 

4905 

4906 

4907 

4908 

4909 

4910 

4911 

4912 

4913 

4914 

4915 

4916 

4917 

4918 

4919 

4920 

4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 


N 14 

18-Mar-1982 16:07:57 

ROUTINE DECLARATIONS 18-Mar-1982 15:44:41 

routine S ERROR J1AP (8AD.CHIP) = 
begin" 


Functional Description: 

The error nap is loaded with all the 
failing row numbers at thier failing 
sector addresses. 

This global routine searches the error map for 
occurances of bad rows. 

Uhen a bad row is found a bad row count 
is incremented and a bad column count 
at the adjacent failing column is also 
incremented. 

If the row count exceeds 10 then this is 
called an all bad row and the row number is 
loaded into the temp blast table. The adjacent 
failing column count is decremented by one. 

If after searching the error map the bad row 
does not exceed 10 then the program goes on to 
the next row and the failing column count are 
left alone. 

Formal Parameters: 

BAD.CHIP: , . 

Points to a failing chip presently being 
pm'ed. 

Implicit Inputs: _ 

ERR0R.MAP. C0L.CNT.TBL, C01.PTR, TWP.BLST.TBL 

Implicit Outputs: . . .... 

The temporary blast table is loaded with a row 
or column address selected for blasting. 

The number of all bad row columns found by this routine 
is added to the count in all.bad. 

Completion codes: . . ...... 

The value of all.bad which indicates how many all bad chips 
found thus far is returned. 

The error map is searched for failing rows addresses 
and they are cleared if set. 

The column count table is incremented with the number 
of times column pairs are detected failing. 


T0PS-20 Bliss-16 V2 <21 2) 
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4931 

4932 

4933 

4934 

4935 

4936 

4937 

4938 

4939 

4940 

4941 

4942 

4943 

4944 

4945 

4946 

4947 

4948 

4949 
*.950 

4951 

4952 

4953 

4954 

4955 

4956 

4957 

4958 

4959 

4960 

4961 

4962 

4963 

4964 

4965 

4966 

4967 

4968 

4969 

4970 

4971 

4972 

4973 

4974 

4975 

4976 

4977 

4978 

4979 

4980 

4981 

4982 


Side Effects: 
none 


label 


local 

URD INDEX, 

BITJNDEX, 

ROU.CNT, 

col'index, 
od Pair loop, 
qd nun Search, 

OD OFFSET, 

STURT SEC, 

end.sEc, 

ALL.BAD; 

ALL BAD = -1; 

I.COL.CNT.TBL (); 

! Determine which type chip this 
! is and define this routines run 
! time parameters. 

I 

if .BNK_NUM_SEC eql 127 
then 

begin 

OD PAIR LOOP = 0; 

QD"NUMjEARCH = 0; 
end 

else 

begin 

OD PAIR LOOP = 1; 

OD NUMjEARCH = 1; 
en9; 

QD.OFFSET = -2; 

incr QD LOOP from 0 to .OD.PAIR.LOOP do 
begin 

QD.OFFSET = .QD.OFFSET ♦ 2; 

incr ROW.NUM from 0 to 127 do 
begin 

URD INDEX = .ROW.NUN/16; 

BIT" INDEX = .ROW.NUN mod 16; 

begin 


18-Har-1982 15:44:41 


PA:<NEALE>PNSKL4.BLI.1 (42) 


SEO 0183 


! Leave loop label 


! Stores the error map word where this row resides 

IStores the bit in tne error map word where this bit resides 

! Count of how many bad row found 

IPointer into to the column pointer table 

IStores the calculated adjacent failing column number 

! Selects how many quadrants to test 

! Selects how many quadrants to test 

! Off set use in calculating which quadrant to test 

! Starting sector variable 

lEnding sector variable 

IStores how many all bad chips are found 

! Start all bad at *1 this value gets returned 
llnit the column count table 


I Is this a 16k chip 


1 16k chips only have one quadrant to test 


!64k chips have four quadrants to test 


IStart the offset off at -2 

I Loop on two quadrant pairs 

!Up the offset by two 

I Search all words in this sector 

ICalculate which word this row is in 
! Calculate which bit in word this row is in 


BSKELA 
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4983 

4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 

4999 

5000 

5001 

5002 

5003 

5004 

5005 

5006 

5007 

5008 

5009 

5010 

5011 

5012 

5013 

5014 

5015 

5016 

5017 

5018 

5019 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 


C 15 

18-Har-1982 16:07:57 TOPS-20 Bliss-16 V2(212) 

18-Har-1982 15:44:41 PA:<NEALE>PHSKL4.BLI .1 (42) 


incr QD SEARCH from 0 ♦ .QD.OFFSET to .QD.NUM.SEARCH ♦ .QD.OFFSET do 

! Search both quadrants in this pair 

begin 


case .00 SEARCH from 0 to 3 of 
set 


! Which quadrant are we in 


CO] 


begin 

ROW CNT = ZERO; 
PTR = -1; 

I COL.PTR (); 
START SEC = 0; 
END.SfC = 127; 
end; 


Cl] 


begin 

START SEC = 256; 
END.SEC = 383; 
end; 


!Ue are in the first quadrant or just a 16k part 

!Row starts at 0 for the first quad search 

!The pointer starts at -1 

Unit the column pointer table 

IQuad 0 sectors start at 0 

!Quad 0 end sector ends at 127 


!Ue are in quadrant 1 

IQuad 1 sectors start at 256 
IQuad 1 sectors end at 383 


C 23 


begin 

ROW.CNT = ZERO; 
PTR = -1; 

I COL.PTR (); 
START SEC = 128; 
END.SEC = 255; 
end; 


C3] : 
begin 

START SEC = 384; 
END.SEC = 511; 
end; 

tes; 


!Ue are in quadrant 2 

I Start the row count at zero 
IReset the pointer 
Unit the column pointer table 
IQuad 2 sectors start at 128 
IQuad 2 sectors end at 255 


!Ue are in quad 3 

IQuad 3 sectors start at 384 
IQuad 3 sectors end at 511 


incr SEC.NUM from .START.SEC to .END.SEC do ISearch thru all sectors for this quad 
begin 


if .ERROR MAP C.SEC NUH, .URD. INDEX, .BIT.INDEX, ONE. ZERO] eql 1 I Is this row bit set 
then ’ 
begin 

ROO.CNT = .ROU.CNT ♦ 1; !Up the bad row count 

if .ROW CNT gtr 9 I Is there > then 10 bad rows 

then 

begin 

ALL. BAD = .ALL.BAD ♦ 1; I Up the all bad count 



BSKEL4 

REV B PATCH 00 ROUTINE DECLARATIONS 


Page 150 
SEC 0185 


5035 

5036 

5037 

5038 

5039 
C040 

5041 

504 2 
SJ43 

5044 

5045 

5046 

5047 

5048 

5049 

5050 

5051 

5052 

5053 

5054 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 

5064 

5065 

5066 

5067 

5068 

5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

5081 

5082 

5083 

5084 

5085 

5086 


D 15 
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if .ALL BAD gtr 9 !Is there > 10 ail bad rows/columns 
then 

return .ALL.BAD !Exit and return the the count 

else 

begin 

TMP.BLST.TBL C.ALL.BAD. R.C3 = SET.FLG; ! This is a bad row 

selectone .SEC NUM of !find which row number this is 
set 

CO to 127. 256 to 3833 : 

TMP.BLST.TBL C.ALL.BAD, R.C.N03 = .ROW.NUM; 

C128 to 255. 384 to 5113 : 

TMP.BLST.TBL C.ALL.BAD, R.C.N03 = .ROW.NUM ♦ 128; 

tes; 

TMP.BLST.TBL C.ALL.BAD. NIB.N03 = .BAD.CHIP/4; .'Find which nibble its in 

incr index from 0 to .PTR do .'Decrement the column counts 

COL.CNT.TBL C.COL.PTR C.index33 = .COL.CNT.TBL C.COL.PTR C.index33 - 1; 

if .QD.PAIR.LOOP eql 0 .'Clear the quad of this roww 
then 

incr CLR SEC ROW from 0 to 127 do 

ERROR.MAP C.CLR.SEC.ROW, .WRD.INDEX, .BIT.INDEX. ONE, 2ER03 = CLR.FLG 

else 


if .QD.SEARCH leq 1 
then 

begin 


incr CLR SEC ROW from 0 to 127 do 

ERROR.MAP C.CLR SEC.ROW, .WRD.INDEX, .BIT.INDEX, ONE, ZER03 = 
CLR.FCG; 

incr CLR SEC ROW from 256 to 383 do 

ERROR MAP C.CLR SEC ROW, .WRD.INDEX, .BIT INDEX, ONE. ZER03 = 
CLR.FCG; 


else 

begin 

incr CLR SEC.ROW from 128 to 255 do 

ERROR MAP C.CLR SEC ROW, .WRD.INDEX, .BIT.INDEX, ONE. ZERO] = 
CLR.FCG; 

incr CLR *EC ROW from 384 to 511 do 

ERROR MAP C.CLR.SEC.ROW. .WRD.INDEX, . 

CLR.FCG; 


BIT.INDEX, ONE. ZERO] = 
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5087 

5088 

5089 

5090 

5091 

5092 

5093 

5094 

5095 

5096 

5097 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

5108 

5109 

5110 

5111 

5112 

5113 

5114 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5138 
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end; 

leave A; .'Leave the loop and do the next row number 

end; 

end 

else 

begin 

selectone .SEC.NUM of ! Increment the adjacent column count table 

set 

[n to 1273 : 
begin 

COLJNDEX = .ROW.NUM ♦ .SEC.NUM; 

if .COLJNDEX geq 128 then COLJNDEX = .COLJNDEX - 128; 
end; 

C128 to. 2553 : 

C0?JNDEX = .ROW.NUM ♦ (.SEC.NUM - 128); 

if .COLJNDEX geq 128 then COLJNDEX = .COLJNDEX - 128; 

end; 

C256 to 3833 : 

CO?. INDEX = .ROW.NUH ♦ (.SEC.NUM - 128); 

if .COLJNDEX geq 256 then COLJNDEX = .COLJNDEX - 128; 

end; 

C384 to 5113 : 

C0?JNDEX = .ROW, NUN ♦ (.SEC.NUH - 256); 

if .COLJNDEX geq 256 then COLJNDEX = .COLJNDEX - 128; 

end; 

tes; 

COL CNT T8L C.C0LJNDEX3 = .COL.CNT.TBL C.COL.INDEXl ♦ 1; 

prp - Bro a . i . 

COL.PTR C.PTR3'= .COL. INDEX; 
end; 

end; 
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5139 





5140 

end; 




5141 





5142 

end; 




5143 





5144 

end; 




5145 

end; 




5146 





5147 

end; 




5148 





5149 

return .ALL.BAD; 




5150 

end; 







•SBTTL 

012462 

004167 

OOOOOOG 

S. ERROR. MAP: 

1 CD 

012466 

162706 

000032 


SUB 

012472 

012766 

177777 000010 


MOV 

012500 

004767 

172454 


JSR 

012504 

026727 

040416' 000177 


CMP 

012512 

001005 



BNE 

012514 

005066 

000022 


CLR 

012520 

005066 

000030 


CLR 

012524 

000406 



BR 

012526 

012766 

000001 000022 

1$: 

MOV 

012534 

012766 

000001 000030 


MOV 

012542 

012766 

177776 000020 

2$: 

MOV 

012550 

005066 

000026 


CLR 

012554 

000167 

001502 


JMP 

012560 

062766 

000002 000020 

3$: 

ADD 

012566 

016666 

000030 000016 


MOV 

012574 

066666 

000020 000016 


ADD 

012602 

005003 



CLR 

012604 

010346 


4$: 

MOV 

012606 

012746 

000020 


MOV 

012612 

004767 

OOOOOOG 


JSR 

012616 

010066 

000012 


MOV 

012622 

010316 



MOV 

012624 

012746 

000020 


MOV 

012630 

004767 

OOOOOOG 


JSR 

012634 

010066 

000012 


MOV 

012640 

016666 

000026 000006 


MOV 

012646 

005366 

000006 


DEC 

012652 

000167 

001340 


JMP 

012656 

016605 

000006 

5$: 

MOV 

012662 

006305 



ASL 

012664 

066507 

012670' 


ADD 

012670 

000010 


6$: 

.WORD 

012672 

000042 



.WORD 

012674 

000060 



.WORD 

012676 

000114 



.WORD 


F 15 

18-Mar-1982 16:07:57 
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S. ERROR. HAP ROUTINE DECLARATIONS 


R1 .(SAVES 
#32. SP 
#-1,10<SP) 
PC.J.COL.CNT.TBL 
BNK. NUN. SEC, #177 
1 $ 

22(SP) 

30CSP) 

2S 

#1 ,22(SP) 

#1 ,30<SP) 
#-2,20(SP) 

26(SP) 

43$ 

#2,20(SP) 

30(SP),16(SP) 

20(SP),16(SP) 

R3 

R3.-(SP) 

#20.-(SP) 

PC,BL$DIV 

R0,12(SP) 

R3.(SP) 

#20. -(SP) 
PC.BL$MOD 
R0,12(SP) 

26(SP) ,6(SP) 
6(5P) 

40$ 

6(SP),R5 

R5 

6$(R5),PC 

7$-6$ 

8 $- 6 $ 

9$-6$ 

10S-6S 


*, ALL .BAD 


OD. PAIR. LOOP 
QD.NUM. SEARCH 

*,QD. PAIR. LOOP 
*, QD.NUM. SEARCH 
*,QD. OFFSET 
QD.LOOP 

*,QD. OFFSET 
QD.NUM. SEARCH,* 
QD. OFFSET.* 
ROW.NUM 
ROU.NUM,* 


*,URD. INDEX 
ROW.NUM,* 


*. BIT. INDEX 
QD.OFFSET.QD. SEARCH 
QD. SEARCH 

QD. SEARCH,* 


4879 


4951 

4952 
4959 

4962 

4963 
4959 

4967 

4968 
4971 
4973 

4975 

4984 

4977 

4979 


4980 

4984 

4988 


G 15 


1BSKEL4 
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SEQ 0188 

012700 

005066 

000032 


7$: 

CLR 

32(SP) 

; ROW.CNT 

4993 

012704 

012766 

177777 

000010 


NOV 

#-1.10(SP> 

.; *.PTR 

4994 

012712 

004767 

172316 



JSR 

PC.I.COL.PTR 

0 

4995 

012716 

005066 

000022 



CLR 

22<SP> 

; START. SEC 

4996 

012722 

012766 

000177 

000020 


MOV 

#177,20(SP) 

; * END. SEC 

4997 

012730 

000433 




BR 

11$ 

0 

4988 

012732 

012766 

000400 

U00022 

8$: 

MOV 

#400,22 ( SP) 

; *. '.TART. SEC 

5002 

012740 

012766 

000577 

000020 


MOV 

#577.20(SP) 

; -.END. SEC 

5003 

012746 

000424 




BR 

11$ 

0 

4988 

012750 

005066 

000032 


9$: 

CLR 

32ISP) 

; ROW.CNT 

5008 

012754 

012766 

177777 

000010 


MOV 

#-1.10(SP) 

; *»PTR 

5009 

012762 

004767 

172246 



JSR 

PC.I.COL.PTR 

0 

5010 

012766 

012766 

000200 

000022 


MOV 

#200, 22 < SP) 

; *, START. SEC 

5011 

012774 

012766 

000377 

000020 


MOV 

#377,20(SP) 

; *. END. SEC 

5012 

013002 

000406 




BR 

11$ 

* 

0 

4988 

013004 

012766 

000600 

000022 

10$: 

MOV 

#600,22(SP) 

; *. START. SEC 

5017 

013012 

012766 

000777 

000020 


MOV 

#777,20(SP) 

; *,END.SEC 

5018 

013020 

016605 

000022 


11$: 

MOV 

22(SD.R5 

; START. SEC. SEC. NUM 

5022 

013024 

005305 




DEC 

R5 

; SEC. NUM 


013026 

000167 

001150 


12$: 

JMP 

39$ 



013032 

010500 



13$: 

MOV 

R5.R0 

; SEC. NUM,* 

5025 

013034 

006300 




ASL 

RO 



013036 

006300 




ASL 

RO 



013040 

006300 




ASL 

RO 



013042 

066600 

000014 



ADD 

1 4 (SP) ,R0 

; WRD. INDEX,* 


013046 

006300 




ASL 

RO 



013050 

062700 

010230' 



ADD 

#ERROR.MAP.RO 



013054 

010046 




HOV 

RO.-(SP) 



013056 

016646 

000014 



MOV 

14(SP).-(SP) 

; BIT. INDEX,* 


013062 

012746 

000001 



MOV 

#1,-(SP) 



013066 

005046 




CLR 

-(SP) 



013070 

004767 

OOOOOOG 



JSR 

PC.BLSGT2 



013074 

062706 

000010 



ADD 

#10. SP 



013100 

005300 




DEC 

RO 



013102 

001351 




BNE 

12$ 



013104 

005266 

000032 



INC 

32(SP) 

; ROW.CNT 

5028 

013110 

026627 

000032 

000011 


CMP 

32(SP),#11 

; ROW.CNT.* 

5030 

013116 

003002 




BGT 

14$ 



013120 

000167 

000654 



JMP 

33$ 



013124 

005266 

000016 


14$: 

INC 

16(SP) 

; ALL. BAD 

5033 

013130 

026627 

000016 

000011 


CMP 

16(SP).#11 

; ALL .BAD.* 

5035 

013136 

003404 




BLE 

15$ 



013140 

062706 

000006 



ADD 

#6.SP 

• 

5037 

013144 

000167 

001126 



JMP 

44$ 



013150 

016604 

000016 


15$: 

MOV 

16(SP).R4 

; ALL .BAD.* 

5040 

013154 

006304 




ASL 

R4 



013156 

062704 

030346' 



ADD 

#THP.8LST.TBL.R4 



013162 

052714 

100000 



BIS 

#100000. (R4) 



013166 

005705 




TST 

R5 

; SEC. NUM 

5042 

013170 

002403 




BLT 

16$ 



013172 

020527 

000177 



CMP 

R5.#177 

; SEC. NUM,* 


013176 

003406 




BLE 

1 ?i 





M 15 


BSXEL4 





18-Mar-1982 

16:07:57 

TOPS-20 Btiss-16 V2(212) 

Page 154 

REV B 

3 ATCH 00 

ROUTINE DECLARATIONS 



18-Mar-1982 

15:44:41 

PA:<NEALE>PMSKL4.BLI.1 (42) 

SEQ 0189 

013200 

020527 

000400 

16$: 

CMP 

R5,#400 


; SEC.NUM,* 


013204 

002405 



8LT 

18i 




013206 

020527 

000577 


CMP 

R5.#577 


; SEC.NUM,* 


013212 

003002 



BGT 

18i 




013214 

010302 


17$: 

MOV 

R3.R2 


; ROW.NUM,* 

5046 

013216 

000417 



BR 

2li 




013220 

020527 

000200 

18$: 

CMP 

R5.#200 


; SEC.NUM,* 

5042 

013224 

002403 



BLT 

19i 




013226 

020527 

000377 


CMP 

R5.#377 


; SEC.NUM,* 


013232 

003406 



BLE 

20$ 




013234 

020527 

000600 

19$: 

CMP 

R5 t #600 


; SEC.NUM,* 


013240 

002417 



BLT 

22$ 




013242 

020527 

000777 


CMP 

R5.#777 


; SEC.NUM,* 


013246 

003014 



BGT 

22$ 




013250 

010302 


20$: 

MOV 

R3.R2 


: ROW.NUM.* 

5049 

013252 

062702 

000200 


ADD 

#200 ,R2 




013256 

006302 


21$: 

ASL 

R 2 




013260 

006302 



ASL 

R 2 




013262 

006302 



ASL 

R 2 




013264 

006302 



ASL 

R 2 




013266 

042702 

170017 


BIC 

#170017,R2 




013272 

042714 

007760 


B1C 

#7760, (R4) 




013276 

050214 



BIS 

R2.CR4) 




013300 

016646 

000056 

22$: 

MOV 

56(SP) ,-(SP) 


; BAD. CHIP.* 

5052 

013304 

012746 

000004 


MOV 

#4,-(SP) 




013310 

004767 

OOOOOOG 


JSR 

PC.8LSDIV 




013314 

042700 

177760 


BIC 

#1 77760, RO 




013320 

142714 

00001 7 


BICB 

#17, (R4) 




013324 

150014 



BISB 

R0,(R4) 




013326 

005002 



CLR 

R 2 


; INDEX 

5054 

013330 

000412 



BR 

24$ 




013332 

005004 


23$: 

CLR 

R4 


• 

0 

5055 

013334 

156204 

002222' 


BISB 

C0L.PTR(R2),R4 


; *(INDEX) ,* 


013340 

005000 



CLR 

RO 




013342 

156400 

001002' 


BISB 

COL. CNT.TBL (R4J.R0 




013346 

005300 



DEC 

RO 




013350 

110064 

001002' 


MOVB 

RO,COL.CNT.TBL(R4) 




013354 

005202 



INC 

R 2 


; INDEX 

5054 

013356 

020266 

000014 

24$: 

CMP 

R2.14(SP> 


; INDEX, PTR 


013362 

003763 



BLE 

23i 




013364 

005766 

000034 


TST 

34CSPJ 


; OD. PAIR. LOOP 

5057 

013370 

001031 



BNE 

26$ 




013372 

005004 



CLR 

R4 


; CLR. SEC. ROW 

5060 

013374 

010400 


25$: 

MOV 

R4.R0 


; CLR. SEC. ROW.* 

5061 

013376 

006300 



ASL 

RO 




013400 

006300 



ASL 

RO 




013402 

006300 



ASL 

RO 




013404 

066600 

000020 


ADD 

20(SP),R0 


; WRD. INDEX,* 


013410 

0063 00 



ASL 

RO 




013412 

062700 

010230' 


ADD 

#ERROR.MAP,RO 




013416 

010046 



MOV 

RO,-(SP> 




013420 

016646 

000020 


MOV 

20(SP),-(SP) 


; BIT. INDEX.* 
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SEQ 0190 

013424 

012746 

000001 


MOV 

#1,-<SP) 



013430 

005046 



CLR 

-(SP) 



013432 

004767 

0000006 


JSR 

PC jL 8L$PU2 



013436 

062706 

000010 


ADD 

#10. SP 



013442 

005204 



INC 

R4 

; CLR. SEC. ROW 

5060 

013444 

020427 

000177 


CAP 

R4,#1 77 

; CLR. SEC. ROW,* 


013450 

003751 



BLE 

25i 



013452 

000550 



BR 

32$ 


5057 

013454 

026627 

000012 000001 

26$: 

CMP 

12(SP),#1 

; QD. SEARCH,* 

5064 

013462 

003062 



BGT 

29$ 



013464 

005004 



CLR 

R4 

; CLR. SEC. ROW 

5068 

013466 

010400 


27$: 

MOV 

R4.R0 

; CLR. SEC. ROW,* 

5069 

013470 

006300 



ASL 

RO 



013472 

006300 



ASL 

RO 



013474 

006300 



ASL 

RO 



013476 

066600 

000020 


ADD 

20(SP) ,R0 

; WRD. INDEX.* 


013502 

006300 



ASL 

RO 



013504 

062700 

010230* 


ADD 

#ERROR.MAP,RO 



013510 

010046 



MOV 

RO.-(SP) 



013512 

016646 

000020 


MOV 

20(SP).-(SP) 

; BIT. INDEX.* 


013516 

012746 

000001 


MOV 

#1.-(SP) 



013522 

005046 



CLR 

-(SP) 



013524 

004767 

0000006 


JSR 

PC.BLSPU2 



013530 

062706 

000010 


ADD 

#10, SP 



013534 

005204 



INC 

R4 

; CLR. SEC. ROW 

5068 

013536 

020427 

000177 


CMP 

R4 .#177 

; CLR. SEC. ROW.* 


013542 

003751 



BLE 

27i 



013544 

012704 

000400 


MOV 

#400.R4 

; *. CLR. SEC. ROW 

5072 

013550 

010400 


28$: 

MOV 

R4.R0 

; CLR. SEC. ROW,* 

5073 

013552 

006300 



ASL 

RO 



013554 

006300 



ASL 

RO 



013556 

006300 



ASL 

RO 



013560 

066600 

000020 


ADD 

20(SP) ,R0 

; WRD. INDEX.* 


013564 

006300 



ASL 

RO 



013566 

062700 

010230* 


ADD 

#ERROR.MAP,RO 



013572 

010046 



MOV 

RO.-(SP) 



013574 

016646 

000020 


MOV 

20(SP) ,-(SP) 

; BIT. INDEX,* 


013600 

012746 

000001 


MOV 

#1.-(SP) 



013604 

005046 



CLR 

-(SP) 



013606 

004767 

OOOOOOG 


JSR 

PC.8LSPU2 



013612 

062706 

000010 


ADD 

#10. SP 



013616 

005204 



INC 

R4 

; CLR. SEC. ROW 

5072 

013620 

020427 

000577 


CMP 

R4,#577 

; CLR. SEC. ROW.* 


013624 

003751 



BLE 

2 si 



013626 

000462 



BR 

32$ 


5064 

013630 

012704 

000200 

29$: 

MOV 

#2 00.R4 

; *. CLR. SEC. ROW 

5080 

013634 

010400 


30$: 

MOV 

R4.R0 

; CLR. SEC. ROW.* 

5081 

013636 

006300 



ASL 

RO 



013640 

006300 



ASL 

RO 



013642 

006300 



ASL 

RO 



013644 

066600 

000020 


ADD 

20(SP).R0 

; WRD. INDEX.* 

1 

013650 

006300 



ASL 

RO 
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SEQ 0191 

013652 

062700 

010230* 


ADD 

fERROR.MAP.RO 




013656 

0 1 0046 



MOV 

RO.-(SP) 




013660 

016646 

000020 


MOV 

20<SP),-(SP> 


; BIT. INDEX,* 


013664 

012746 

000001 


MOV 

#1.-<SP> 




01 3670 

005046 



CLR 

-(SP) 




013672 

00**767 

OOOOOOG 


JSR 

PC-BL$PU2 




013676 

062706 

000010 


ADD 

#10, SP 




013702 

005204 



INC 

R4 


; CLR. SEC. ROW 

5080 

013704 

020427 

000377 


CMP 

R4,#377 


; CLR. SEC. ROW,* 


013710 

003751 



BLE 

30$ 




013712 

012704 

000600 


MOV 

#600.R4 


; *, CLR. SEC. ROW 

5084 

013716 

010400 


31$: 

MOV 

R4.R0 


; CLR. SEC. ROW,* 

5085 

013720 

006300 



ASL 

RO 




013722 

006300 



ASL 

RO 




013724 

006300 



ASL 

RO 




013726 

066600 

000020 


ADD 

20(SP).R0 


; WRD. INDEX,* 


013732 

006300 



ASL 

RO 




013734 

062700 

010230* 


ADD 

#ERROR.MAP,RO 




013740 

010046 



MOV 

RO,-(SP) 




013742 

016646 

000020 


MOV 

20(SP),-(SP) 


; BIT. INDEX,* 


013746 

012746 

000001 


MOV 

#1,-(SP) 




013752 

005046 



CLR 

-(SP) 




013754 

004767 

OOOOOOG 


JSR 

PC.8LSPU2 




013760 

062706 

000010 


ADD 

#10.SP 




013764 

005204 



INC 

R4 


; CLR. SEC. ROW 

5084 

013766 

020427 

000777 


CMP 

R4,#777 


; CLR. SEC. ROW.* 


013772 

003751 



BLE 

3li 




013774 

022626 


32$: 

CMP 

(SP)+,(SP>* 


• 

5090 

013776 

000517 



BR 

41$ 




014000 

005705 


33$: 

TST 

R5 


; SEC.NUM 

5097 

014002 

002411 



BLT 

34$ 




014004 

020527 

000177 


CMP 

R5,#177 


; SEC.NUM,* 


014010 

003006 



BGT 

34$ 




014012 

010501 



MOV 

R5,R1 


; SEC.NUM, COL. INDEX 

5102 

014014 

060301 



ADD 

R3.R1 


; ROW. NUM, COL. INDEX 


014016 

020127 

000200 


CMP 

R1 x #200 


; COL. INDEX,* 

5104 

014022 

002457 



BLT 

38i 




014024 

000454 



BR 

37$ 




014026 

020527 

000200 

34$: 

CMP 

R5,#200 


; SEC.NUM.* 

5097 

014032 

002414 



BLT 

35i 




014034 

020527 

000377 


CMP 

R5.#377 


; SEC.NUM.* 


014040 

003011 



BGT 

35i 




014042 

010504 



MOV 

R5,R4 


; SEC.NUM,* 

5110 

014044 

060304 



ADD 

R3.R4 


; ROW. NUM.* 


014046 

010401 



MOV 

R4.R1 


; *. COL. INDEX 


014050 

162701 

000200 


sue 

#260,R1 


; *. COL. INDEX 


014054 

020127 

000200 


CMP 

R1 ,#200 


; COL. INDEX.* 

5112 

014060 

002440 



BLT 

38$ 




014062 

000435 



BR 

37$ 




014064 

020527 

000400 

35$: 

CMP 

R5,#400 


; SEC.NUM.* 

5097 

014070 

002414 



BLT 

36i 




014072 

020527 

000577 


CMP 

R5,#5 77 


; SEC.NUM.* 




8SKEL4 
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ROUTINE 

DECLARATIONS 



014076 

00301 1 




BGT 

014100 

010504 




MOV 

014102 

060304 




ADD 

014104 

010401 




MOV 

014106 

162701 

000200 



SUB 

014112 

020127 

000400 



CMP 

014116 

002421 




BLT 

014120 

000416 




BR 

014122 

020527 

000600 


36$: 

CMP 

014126 

002415 




BLT 

014130 

020527 

000777 



CMP 

014134 

003012 




BGT 

014136 

010504 




MOV 

014140 

060304 




ADD 

014142 

010401 




MOV 

014144 

162701 

000400 



SUB 

014150 

020127 

000400 



CMP 

014154 

002402 




BLT 

014156 

162701 

000200 


37$: 

SUB 

014162 

105261 

001002* 


38$: 

INCB 

014166 

005266 

000010 



INC 

014172 

016604 

000010 



MOV 

014176 

110164 

002222* 



MOVB 

014202 

005205 



39$: 

INC 

014204 

020566 

000020 



CMP 

014210 

003002 




BGT 

014212 

000167 

176614 



JMP 

014216 

005266 

000006 


40$: 

INC 

014222 

026666 

000006 

000024 


CMP 

014230 

003002 




BGT 

014232 

000167 

176420 



JMP 

014236 

062706 

000006 


41$: 

ADD 

014242 

005203 




INC 

014244 

020327 

000177 



CMP 

014250 

003002 




BGT 

014252 

000167 

176326 



JMP 

014256 

005266 

000026 


42$: 

INC 

014262 

026666 

000026 

000022 

43$: 

CMP 

014270 

003002 




BGT 

014272 

000167 

176262 



JMP 

014276 

016600 

000010 


44$: 

MOV 

014302 

062706 

000032 



ADD 

014306 

000207 




RTS 

: Routine Size: 

459 words 



; Maximum stack depth per invocation: 

28 words 
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36$ 

R5.R4 

R3.R4 

R4.R1 

#200.R1 

R1 .#400 

38S 

37$ 

R5.#600 

38$ 

R5,#777 
38i 
R5.R4 
R3.R4 
R4.R1 
#400. R1 
R1 .#400 
38$ 

#200, R1 

tOL.CNT.TBKRD 

10(SP) 

10(SP) ,R4 

R1.C0L.PTR(R4) 

R5 

R5.20(SP) 

40$ 

13$ 

6CSP) 

6(SP) ,24(SP) 
41$ 

5$ 

06. SP 
R3 

R3,#177 

42$ 

4$ 

26<SP) 

26(SP) ,22(SP) 
44$ 

3$ 

10 (SP) ,R0 
#32. SP 
PC 


T0PS-20 Bliss-16 V2<212) 
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SEC.NUM,* 

ROW.NUM,* 

*, COL. INDEX 
*. COL. INDEX 
COL. INDEX,* 


SEC.NUM.* 

SEC.NUM,* 

SEC.NUM,* 

ROU.NUM,* 

*, COL. INDEX 
*, COL. INDEX 
COL. INDEX.* 

*, COL. INDEX 
*(COL. INDEX) 

PTR 

PTR,* 

COL. INDEX,* 
SEC.NUM 

SEC.NUM, END. SEC 


; QD. SEARCH 
; QD. SEARCH,* 


ROU.NUM 

ROU.NUM,* 


; QD.LOOP 

; QD. LOOP, QD. PAIR. LOOP 


ALL.8AD,* 
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SEQ 0192 


5118 


5120 

5097 

5126 

5128 


5133 

5134 

5135 

5022 


4984 


4978 

4977 


4973 


4880 

4879 
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REV B PATCH 00 

5151 

5152 

5153 

5154 

5155 

5156 

5157 

5158 

5159 

5160 

5161 

5162 

5163 

5164 

5165 

5166 

5167 

5168 

5169 

5170 

5171 

5172 

5173 

5174 

5175 

5176 

5177 

5178 

5179 

5180 

5181 

5182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 


L 15 

18-Mar-1982 16:07:57 TOPS-20 Bliss-16 V2C212) 

ROUTINE DECLARATIONS 18-Har-1982 15:44:41 PA:<NEALE>PMSKL4.BLI . 1 (43) 

routine S CHIP_T8L (START) = 
begin* 


Functional Description: , . . . 

This global routine searches the bad chip table 
looking for failing chips. When a failing 
chip is found the failing chip number is 
returned. If no failing chip is found 
then a -1 is returned. 

Formal Parameters: 

START: 

Indicates where to start searching 
in the bad chip table 

Implicit Inputs: 

CHlPjrSl 

Implicit Outputs: 
none 

Completion codes: . , 

The number of the next failing chip to be PM ed 
is returned or a -1 is returned if no failing chips 
remain in this bank to be tested. 

Side Effects: 
none 


!♦ 

! Search the chip table and find the 
! next failing chip to PM. If one 
! is found then return to the caller 
! that chip number else return a -1 
! to indicate that all the failing 
! chips have been PM’ed 

incr T8L.INDEX from .START to 38 do i Search thru the chip table 

if .CHIP.TBL C.T8L.INDEX, FAULT} then return .T8L.INDEX; !Exit and return ndex 

return -1; ‘Exit and return -1 if no chip faults are detected 

end; 


014310 010146 
014312 016600 000004 


.S8TTL S.CHIP.T8L ROUTINE DECLARATIONS 
S.CHIP.T8L: 

MOV 4(SP)!rO ) START. TBL. I NDEX 
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014316 

005300 



DEC 

014320 

000405 



8R 

014322 

010001 


1$: 

MOV 

014324 

006301 



ASL 

014326 

005761 

030230’ 


TST 

014332 

100406 



BMI 

014334 

005200 


2 S: 

INC 

014336 

020027 

000046 


CMP 

014342 

003767 



BLE 

014344 

012700 

177777 


MOV 

014350 

012601 


3$: 

MOV 

014352 

000207 



RTS 

; Routine Size: 

18 words 



; Maximum stack depth per invocation: 

2 words 
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R0 

2 $ 

R0.R1 

R1 

CHIP.TBL(RI) 

3 $ 

RO 

R0.A46 

IS 

A-1.R0 
(sp5 ♦ .ri 
PC 


TOPS-20 Bliss-16 V2(212) 
PA:<NEAL£>PMSKL4.BLI.1 (43) 

; T8L. INDEX 

; TBL. INDEX.* 

; TBL. INDEX 
; TBL. INDEX.* 
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SEO 0194 


5193 


5191 


5152 

5151 


l 



BSKblA 

REV B PATCH 00 

5197 

5198 

5199 

5200 

5201 

5202 

5203 

5204 

5205 

5206 

5207 

5208 

5209 

5210 

5211 

5212 

5213 

5214 

5215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 

5223 

5224 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 

5235 

5236 

5237 

5238 
5’39 

5240 

5241 

5242 

5243 

5244 

5245 

5246 

5247 

5248 


N 15 

18-Mar-1982 16:07:57 T0PS-20 Bliss-16 V2<212> 

ROUTINE DECLARATIONS 18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.BLl . 1 (44) 

routine RD.OLD.PROM.DATA (ARRSBNK.SEL) : novalue = 
begin 


♦ ♦ 

Functional Description: 

In order to perform Prom Maintenance on an 
array module the old prom data stored in the 
tested array must be read and saved into the 
error map wr.ere the new prom data found by 
this program can be OR'ed with it. 

This global routine will read the old prom data 
stored in prom on the tested array into 
the error map. 

Formal Parameters: 

ARRSBNK SEL: 

Stores the array and bank setect address. 


Implicit Inputs: 

ERROR.MAP, RET.STATUS 


Implicit Outputs: 

The error map is remapped to look exactly like 
the blast table and the old prom data in this 
» tested array is read into it. 


Completion codes: 
none 


Side Effects: 
none 


local 

PROM ADRS, 
FINISH; 


•Stores the built prom address 
! Inc» loop ending variable 


To conserve memory space the ML-11 exercisers 
write and read buffers are redefined to be a 
contigious blockvector of 4 blocks of 512 words 
each. This map declaration maps the exercisers 
I/O buffers into this structure. 


map 


ERROR.MAP : blockvector C4, 5123 volatile; 


!Map the errorjnap the same as the blast table 


Define how many rows and column to read 
out of the on board UV proms. 
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nuu » limu UlC innn i iviJ 


5249 

5250 

5251 

5252 

5253 

5254 

5255 

5256 

5257 

5258 

5259 

5260 

5261 

5262 

5263 

5264 

5265 

5266 

5267 

5268 

5269 

5270 

5271 

5272 

5273 

5274 

5275 

5276 

5277 

5278 

5279 

5280 

5281 

5282 

5283 

5284 

5285 

5286 

5287 

5288 

5289 

5290 

5291 

5292 

5293 

5294 

5295 

5296 

5297 

5298 

5299 

5300 


if .BNK_NUM_SEC eql 127 then FINISH = 127 else FINISH = 255; 

RD PROW MODE; ! Enable prom reads 

PROW ADRS = ZEROES; ! Clear the prom address 

PR0M~ADRS<11 , 4> = . ARR$8NK_SE L < . ARR_SE L _P0S , ARR$S e !._SIZE>; 

! ♦ 

! Read all old prom data stored in the on board 
! proms and store the prom data in the 
! error map at its respective error map 
! location. 


ISelect the loops ending 


.'Select the array 


incr SEL_BNK from 0 to 3 do 
begin 

PROW ADRS<10, 1> = ZERO; 
PR0M*ADRS<8, 2> = .SEL.BNK; 


!Read prem data for all four banks on this array 

I The first loop reads row prom data 
! Select the proms bank position 


Within this bank of the on board proms 
read all row prom data and store it into the 
error map at its respective error map 
location. 


incr R0W_NUW from 0 to .FINISH do 
begin 

PROM_ADRS<0, 8> = .ROW NUM; 


!Read out all the prom row data 


PROW ADRS<0. 8> = .R0W.NUW; ISelect the row address 

WRT Rh (WLPA. PA.REG. .PR0M.ADRS); !Write the address to the mlpa reg 

DElXY (ONE US); ! Wait for prom data to clock into mlpd 


ERROR MAP t.SEL BNK, .ROW.NUM, FULL.URD] = .ML.ADDR CMLPD. PDRE63; 
“ !Put the prom data into the err 


PR0M_ADRS<10. 1> = ONE; 


error map 


* This loop will read out the prom column data 


Within this bank of the on board proms 
read all column prom data and store it into the 
error map at its respective error map 
location. 


incr COL.NUM from 0 to .FINISH do — - - ^ 

PR&i n ADRS<0, 8> = .COL NUM; ! Select the coluan address 

WRT Rh (WLPA. PA REG. .PROW ADRS); 'write the address to the mlpa reg 
DELAY (ONE US); “ !Wait for prom data to clock into mlpd 

ERROR WAP t.SEL BNK. .COL.NUM ♦ .COL BASE, FULL.WRD3 = .ML ADDR CMLPD. PD.REGD; 

[Load the error map with the prom data 


!Read out all the prom column data 


T0PS-20 Bliss-16 V2(212) 

PA : <NE AL E >PMSKL4 . BL 1 . 1 (44) 
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5301 

5302 

5303 

5304 

5305 

5306 


end; 


014354 

014360 

014364 

014372 

014374 

014400 

014402 

014406 

014412 

014420 

014424 

014430 

014434 

014436 

014442 

014444 

014450 

014454 

014456 

014462 

014464 

014466 

014470 

014472 

014476 

014502 

014504 

014506 

014510 

014512 

014516 

014522 

014524 

014526 

014530 

014532 

014534 

014536 

014540 


end; 

CLR.MBUS; 

end; 


C 16 

18-Har-1982 16:07:57 
1 8-Ha r-1 982 15:44:41 


[Clear out the prom read mode 


.GL08L LSDLY 





.SBTTL 

RD.OLD.PROM.DAT ROUTINE 

DECLARATIONS 

004167 

0000006 

RD.OLD 

.PROM.DAT 

; 





JSR 

R1 .SSAVE5 

0 

162706 

000022 


SUB 

#22, SP 


026727 

040416* 000177 


CMP 

BNK.NUM.SEC,#177 

0 

001003 



BNE 

1$ 


012716 

000177 


MOV 

#177. (SP) 

; *, FINISH 

000402 



BR 

2$ 


012716 

000377 

IS: 

MOV 

#377, (SP) 

; *, FINISH 

016701 

040374* 

2$: 

MOV 

ML.ADDR.R1 


016166 

000024 000016 


MOV 

24(R1).16(SP) 

; *,ML.REG 

012700 

000040 


MOV 

#40, RO 

; *,MLREG 

016701 

040374* 


MOV 

ML.ADDR.R1 


010061 

000024 


MOV 

R0,24(R1) 

; MLREG,* 

005002 



CLR 

R2 

; PROM.ADRS 

012746 

000042 


MOV 

#42, -(SP) 


060616 



ADD 

SP,(SP> 

; ARRSBNK.SEL.* 

016746 

040412' 


MOV 

ARR.SEL.POS.-(SP) 


012746 

000004 


MOV 

#4,-(SP) 


005046 



CLR 

-(SP) „ 


004767 

0000006 


JSR 

PC.BLSGT2 


000300 



SWAB 

RO 


006300 



ASL 

RO 


006300 



ASL 

RO 


006300 



ASL 

RO 


042700 

103777 


BIC 

#103777, RO 


042702 

074000 


B1C 

#74000. R2 

; *, PROM.ADRS 

050002 



BIS 

R0.R2 

; *, PROM.ADRS 

005005 



CLR 

R5 

; SEL.BNK 

010504 


3$: 

MOV 

R5.R4 

; SEL.BNK.* 

000304 



SUAB 

R4 


042704 

176377 


BIC 

#1 76377, R4 


042702 

003400 


BIC 

#3400, R2 

; *, PROM.ADRS 

050402 



BIS 

R4.R2 

; *, PROM.ADRS 

010500 



MOV 

R5.R0 

; SEL.BNK,* 

000300 



SUAB 

RO 


105000 



CLRB 

RO 


006300 



ASL 

RO 


005004 



CLR 

R4 

; ROU.NUM 

000444 



BR 

9$ 


105002 


4$: 

CLRB 

R2 

; PROM.ADRS 
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5197 

5251 


5254 

5255 


5264 

5267 


5281 

5276 

5278 
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014542 

150402 



BISB 

014544 

016701 

040374* 


MOV 

014550 

016166 

000020 000024 


MOV 

014556 

010203 



MOV 

014560 

016701 

040374* 


MOV 

014564 

010361 

000020 


MOV 

014570 

012703 

000001 


MOV 

014574 

001411 


5$: 

BEO 

014576 

016701 

0000006 


MOV 

014602 

001404 



BEQ 

014604 

005066 

000030 

6$: 

CLR 

014610 

005301 



DEC 

014612 

001374 



BNE 

014614 

005303 


7$: 

DEC 

014616 

000766 



BR 

014620 

010003 


8$: 

MOV 

014622 

060403 



ADD 

014624 

006303 



ASL 

014626 

016701 

040374* 


MOV 

014632 

016166 

000046 000022 


MOV 

014640 

016663 

000022 010230' 


MOV 

014646 

005204 



INC 

014650 

020466 

000010 

9$: 

CMP 

014654 

003731 



BLE 

014656 

052702 

002000 


BIS 

014662 

005003 



CLR 

014664 

000446 



BR 

014666 

105002 


10$: 

CLRB 

014670 

150302 



BISB 

Cl 4672 

016701 

040374* 


MOV 

014676 

016166 

000020 000020 


MOV 

014704 

010204 



MOV 

014706 

016701 

040374* 


MOV 

014712 

010461 

000020 


MOV 

014716 

012704 

000001 


MOV 

014722 

001411 


11$: 

BEQ 

014724 

016701 

0000006 


MOV 

014730 

001404 



BEQ 

014732 

005056 

000030 

12$: 

CLR 

014736 

005301 



DEC 

014740 

001374 



BNE 

014742 

005304 


13$: 

DEC 

014744 

000766 



BR 

014746 

010304 


14$: 

MOV 

014750 

066704 

040372* 


ADD 

014754 

060004 



ADD 

014756 

006304 



ASL 

014760 

016701 

040374* 


MOV 

014764 

016166 

000046 000016 


MOV 

014772 

016664 

000016 010230* 


MOV 

015000 

005203 



INC 

015002 

020366 

000010 

15$: 

CMP 





E 16 

18-Kar-1982 16:07:57 
18-Mar-1982 15:44:41 


10S 

R5 

R5,#3 

3$ 

ML.ADDR.R1 

10(R1),14(SP> 

14<SP),R0 

#40, R0 

ML.ADDR,R1 

R0,10<R1) 

ML.ADDR.RI 

10(R1).12(SP) 

12(SP),R0 

ML.DUT,R5 

#177776,R5 

#7,R0 

R5.R0 

ML.ADDR.R1 

RO.IO(RI) 

*32. SP 

PC 


T0PS-20 Bliss-16 V2(212> 
PA:<NEALE>PMSKL4.BLI.1 (44) 


; SEL.8NK 
; SEL.8NK,* 


; *.ML.RE6 
; ML.REG.MLREG 
; *.«LRE6 

; MLREG,* 

; *,ML.REG 
; ML.REG,MLREG 
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; *,MLREG 
; *,MLREG 

; MLREG,* 



BSKEL4 

REV B PATCH 00 


ROUTINE DECLARATIONS 


F 16 

18-Mar- 198J 
18-Mar-198< 


16:07:57 

15:44:41 


TOPS-20 Bliss-16 V2<212> 

PA: <NEALE>PMSKL4.BLI . 1 (45) 


5307 

5308 

5309 

5310 

5311 

5312 

5313 

5314 

5315 

5316 

5317 

5318 

5319 

5320 

5321 

5322 

5323 

5324 

5325 

5326 

5327 

5328 

5329 

5330 

5331 

5332 

5333 

5334 

5335 

5336 

5337 

5338 

5339 

5340 

5341 

5342 

5343 

5344 

5345 

5346 

5347 

5348 

5349 

5350 

5351 

5352 

5353 

5354 

5355 

5356 

5357 

5358 


routine OR OLD.NEW.PD (BNK.NUM) : novalue = 
begin 


♦♦ 

Functional Description: 

Once the nibble offsets have been counted and 

offsets > 14 do not exist then the 

old prom data stored in the error map 

at this bank is OR’ed into the blast 

table where the check sums can then be calculated. 


Formal Parameters: 

ARRS8NK SEL: 

Stores array 


and bank select address. 


Implicit Inputs: 
BLAST.TBL , 


ERRGR.MAP 


Implicit Outputs: . . . 

The old prom data in the error map is OR ed 
into their respective blast table locations. 


Completion codes: 
none 


Side Effects: 
none 


!♦ 

! To conserve memory space the Ml-11 exercisers 
! write and read buffers are redefined to be a 
! contfgious blockvector of 4 blocks of 512 words 
! each. This map declaration maps the exercisers 
! 1/0 buffers into this structure. 


ERROR.MA P : blockvector C4, 5123 volatile; !Map the error map like the blast tasble 

!♦ 

i Logically 'OR* all non zero blast table locations 
« with respective error map locations. 

incr CNT from 0 to .MAX_CHIP_C0L*2 - 1 do '.Or all non zero blast table locations 
begin 

i Logical 'OR' this blast table location with 
! its error map counter part if it is non zero. 
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G 16 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 


TOPS-20 Bliss-16 V2 (21 2) 
PA:<NEALE>PMSKL4.8LI.1 (45) 
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5359 

5360 

5361 

5362 

5363 
5564 

5365 

5366 


if .BLAST.TBL C.BNK.NUM, .CNT, FULL.WRDD neq ZERO .'Is this location not zero 

then BLAST TBL C.BNK NUM. .CNT, FULL.WRDD = .BLAST TBL C.8NK NUM. ,CNT, FULL.URDJ or .ERROR.MAP C 
.8NK.NUM, .Cnt, FULL.WRD3; !0r this location with adjacent error map location 


015124 004167 000000G 


015130 

015134 

015136 

015142 

0151*4 

015146 

015150 

015152 

015154 

015156 

015160 

015162 

015166 

015170 

015172 

015174 

015202 

015204 

015206 

015210 


016704 040376* 

006304 

016600 000014 

000300 

105000 

006300 

005001 

000414 

010003 

060103 

006303 

012702 030372* 

060302 

005712 

001403 

056363 010230* 030372’ 

005201 

020104 

002762 

000207 


; Routine Size: 27 words 
; Maximum stack depth per invocation: 


OR. OLD. NEW. PD: 
JSR 
MOV 
ASL 
MOV 
SWAB 
CLRB 
ASL 
CLR 
BR 

1$: MOV 

ADD 
ASL 
MOV 
ADD 
TST 
BEO 
BIS 

2$: INC 

3$: CMP 

BLT 
RTS 


5 words 


.SBTTL OR. OLD. NEW. PD ROUTINE DECLARATIONS 


R1.JSAVE4 

MAX. CHIP. COL ,R4 

R4 

14(SP),R0 

~'b 

t 0 

RT 

3$ 

R0,R3 
R1 ,F.2 
R3 

#8LAST.TBL,R2 

R3.R2 

<R2) 

ERROR. MAP(R3) .BLAST. TBL(R3) 
R1 

R1.R4 

1 $ 

PC 


; BNK.NUM,* 


; CNT 


; CNT,* 


; CNT 
; CNT,* 


BSKEL4 

REV B PATCH 00 


5367 

5368 

5369 

5370 

5371 

53 72 

5373 

5374 

5375 

5376 

5377 

5378 

5379 

5380 

5381 

5382 

5383 

5384 

5385 

5386 

5387 

5388 

5389 

5390 

5391 

5392 

5393 

5394 

5395 

5396 

5397 

5398 
53 *9 
54)0 

5401 

5402 

5403 

5404 

5405 

5406 

5407 

5408 

5409 

5410 

5411 

5412 

5413 

5414 

5415 

5416 

5417 

5418 


H 16 

18-Mar-1982 16:07:57 T0PS-20 Bliss-16 V2(212> 
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routine BIT_CLR.OLD.NEW (BNK.NUM) : novalue = 
begin 


♦♦ 

Functional Description: . J „ 

When a failing chip is searched. for newly 
failing rows and columns there is always 
the possibility that old bad rows or columns 
may also fail. In fact we hope they do 
so to give us a performancd history of the chip. 

These failing rows and columns if any 
must be clear out from the blast table 
to allow the counting of bad nibble off- 
sets. 

This global routine bit clears the error map with 
the blast table at the selected bank. 


Formal Parameters: 

BNK NUH: . B 

Selected bank number for bit clearing. 

Implicit Inputs: 

ERROR.MAP, BLAST.T8L 

Implicit Outputs: ^ . 

The blast table is cleared of old prom data 
occurances. 


Completion codes: 
none 

Side Effects: 
none 


To conserve memory space the HL-11 exercisers 
write and read buffers are redefined to be a 
contigious blockvector of 4 blocks of 512 words 
each. This map declaration maps the exercisers 
I/O buffers into this structure. 


map 


ERROR.MAP : blockvector [4, 5123 volatile; 


!Map the error map like the blast table 


Bit clear all blast table locations with their 
error map counter parts. 


Page 
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5419 

5420 

5421 

5422 

5423 

5424 

5425 

5426 
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I 16 
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PA:<NEALE>PMSKL4.BLI.1 (46) 
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!Bit clear blast table with error map at this bank 


incr CNT from 0 to .MAX_CHIP_COL*2 - 1 do 

BlfiisT TBL C.8NK NUM, .CNT, FULL WRDJ = ( not .ERROR.MAP C.BNK.NUM, .CNT, FULL.WRD3) and .BLAST.TBL C 
.Bnk.num, .CNT, FULL.URDJ; 

end; 


end; 


015212 004167 000000G 

015216 016703 040376* 

015222 006303 
015224 016600 000012 
015230 000300 
015232 105000 
015234 006300 
015236 005001 
015240 000407 
015242 010002 
015244 060102 
015246 006302 

015250 046262 010230' 030372' 

015256 005201 
015260 020103 
015262 002767 
015264 000207 

; Routine Size: 22 words 
; Maximum stack depth per invocation: 


.SBTTL BIT. CLR. OLD. NEW ROUTINE DECLARATIONS 
BIT. CLR. OLD. NEW 
JSR 
MOV 
ASL 
MOV 
SWAB 
CLRB 


1 $: 


2 $: 


4 words 


R1 ,$SAVE3 
MAX. CHIP. COL, R3 
R3 

12(SP),R0 
RO 
RO 

ASL RO 

CLR R1 

BR 2$ 

MOV R0.R2 

ADD R1,R2 

SIC ERR0R.MAP(R2),8LAST.TBL(R2) 
INC R1 

CMP R1,R3 

BLT 1$ 

RTS PC 



5367 

5420 

BNK.NUM,* 

5422 

CNT 

5420 

CNT,* 

5422 

CNT 

CNT,* 

5420 


5367 
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5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 

5435 

5436 

5437 

5438 

5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 

5461 

5462 

5463 

5464 

5465 

5466 

5467 

5468 

5469 

5470 

5471 

5472 

5473 

5474 

5475 

5476 

5477 

5478 


J 16 

18-Mar-1982 16:07:57 

ROOUNE DECLARATIONS 18-«ar-1982 15:44:41 

routine IN.8LAST.TBL (ARRS8NK.SEL, TSTED.BNK) : novalue = 
begin 


Functional Description: 

This global routine first clears the blast table 
of any old bad row or column data that might 
have been found during the searching for new 
failing rows and columns. 

The selected bank is then searched to see if 
any additional failing rows or columns were 
found. 

If no additional failing row columns were 
found then the bank is not further tested. 

If additional failing row or columns were 
found then the blast table and the error 
map is search for nibble offset > 14. 


Formal Parameters: 

ARRS8NK SEL: 

'Stores array and bank select address 
TSTEDJJNK: 

Indicates how many banks per array module 
is to be pm'ed. 

Implicit Inputs: 

ERROR J1AP. BLAST.T8L. BAD.BNK.REG, DEGRADE .MOD.REG 
Implicit Outputs: 

1. If nibble offsets exceed 14 then bad row or 
column address in the blast table are cleared 
until nibble offsets equal 14. 

2. A banks bad bank register bit is set if the 
bank has additional error to mask. 

3. A banks degrage mode register bit is set if 
nibble offsets greater than 14 are detected. 

Completion codes: 
none 

Side Effects: 
none 


local 


T0PS-20 Bliss-16 V21212) 
PA:<NEALE>PMSKL4.BLI . 1 (47) 
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5479 

5480 

5481 

5482 

5483 

5484 

5485 

5486 

5487 

5488 

5489 

5490 

5491 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 


K 16 

18-Har-1982 16:07:57 T0PS-20 Bliss-16 V2(212> 

18-Har-1982 15:44:41 PA:<NEALE>PMSKL4.BLI . 1 (47) 


QD 0 SUM, 
QD.1.SUH, 

QD 2_SUN, 
qd 3 sun, 

ROfl 0 127 OFF, 
ROW 128 255 OFF, 
COL 0 127 OFF, 
COL 128.255.0FF, 
BNK NUn, 

ARR NUn, 
OVER.FLOW; 


IQuadrant 0 offset sum = sectors 0-127 
IQuadrant 1 offset sum = sectors 128-255 
!Quadrant 2 offset sum = sectors 256-383 
IQuadrant 3 offset sum = sectors 384-511 
lOffsets count for rows 0-127 
lOffset count for rows 128-255 
lOffset count for columns 0-127 
lOffset count for column 128-255 
! Stores banif selector 
! Stores array selector 
! Stores offset counts which are > 14 


To conserve memory space the ML-11 exercisers 
write and read buffers are redefined to be a 
contigious blockvector of 4 blocks of 512 words 
each. This map declaration maps the exercisers 
1/0 buffers into this structure. 


ERROR.nAP : blockvector [4, 5123 volatile; map the error map like the blast table 

I ERROR MAP (); Unit the error map before we store the prom data in there 

RC OLD PROM DATA (.ARRSBNK SEL); IRead the old prom data into the error map 

BNR NUW = .XRRS8NK SEK.8NR.SEL.P0S, BNKSSEL.SIZE>; .'Select the bank to interiaate 
ARR”NUn = .ARRSBNK SEK.ARR_SEL.P0S, ARR$SEL_SIZE>; {Select the array of this bank 


incr SEL 8NK from 0 to .TSTED.8NK - 1 do 
begin 

BIT.CLR.0LD.NEW (.8NK.NUM); 

if S 8LAST.T8L (.8NK.NUN) 
then 

begin 

BAD.8NK.RE6 C.8NK.NUM3 = SET.FL6; 


llnterigate the pm'ed banks 

IClear the old failing rows/cols from the blast table 
!Are there any new errors in this bank 

! F lag that this is a bad bank 


incr NI8.NUM from 0 to 9 do 
begin 

ROW 01 27 OFF = ZERO; 
ROW 128 255 OFF = ZERO; 
COLIO 127 OFF = ZERO; 
COL 128.255.0FF = ZERO; 


{Search thru all nibbles in this bank 

Unit the row count 
! Ini t the row count 
Unit the column count 
Unit the column count 


incr R0W.NUM from 0 to 127 do !Sum the number of failing rows 0-127 
begin 


if .BLAST.T8L C.8NK.NUM, .R0W.NUM, .NIB.NUM, 1, 03 
then 

ROW.0.127.0FF = .R0W.0_127.0FF ♦ 1; 


if .ERR0R.MAP C.8NK.NUH, .R0W.NUM, .NI8.NUM, 1. 03 
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SEO 0206 


BSKEL4 

REV B PATCH 00 


ROUTINE DECLARATIONS 


L 16 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (47) 


5531 

5532 

5533 

5534 

5535 

5536 

5537 

5538 

5539 

5540 

5541 

5542 

5543 

5544 

5545 

5546 

5547 

5548 

5549 

5550 

5551 

5552 

5553 

5554 

5555 

5556 

5557 

5558 

5559 

5560 

5561 

5562 

5563 

5564 

5565 

5566 

5567 

5568 

5569 

5570 

5571 

5572 

5573 

5574 

5575 

5576 

5577 

5578 

5579 

5580 

5581 

5582 


then ROW_OJ27_OFF = .R0W.0_127.0FF ♦ 1; 
end; 

incr COL.NUM from 0 to 127 do !Sum the number of failing columns 0-127 
begin 

if .BLAST.TBL C.BNK.NUM. .COL.NUM ♦ .COL.BASE, .NIB.NUM, 1, 0] 
then COL_0.127.0FF = . C0L.0_127.0FF ♦ 1; 

if .ERROR.MAP C.BNK.NUM, .COL.NUM + .COL.BASE, .NIB.NUM, 1, 03 

then C0L_0.127.0FF = . C0L.0.127.0FF ♦ 1; 

end; 

if . BNK.NUM.SE C gtr 127 ! Is this a 64k part 

then 

begin 

incr ROW NUM from 128 to 255 do .'Sum number of failing rows 128-255 
begin 

Ver czmlcb added to ROW.NUM 

if .BLAST.TBL C.BNK.NUM. .ROW.NUM, .NIB.NUM, 1, 03 
h r, R0W_1 28.255.OFF = .ROW_128.255.OFF ♦ 1; 
if .ERROR.MAP C.BNK.NUM, .ROW.NUM, .NIB.NUM, 1, 03 
then R0W_128_255_0FF = . ROW. 1 28.25 5.0FF ♦ 1; 
end; 

incr COL.NUM from 128 to 255 do .'Sum number of failing col 128-255 
begin 

if .BLAST.TBL C.BNK.NUM, .COL.NUM ♦ .COL.BASE, .NIB.NUM, 1, 03 
then C0L_l28.255.0FF = .C0L.128_255.0FF ♦ 1; 
if .ERROR.MAP C.BNK.NUM, .COL.NUM ♦ .COL.BASE, .NIB.NUM, 1, 03 
then C0L_128_255_0FF = .C0L.128.255.0FF ♦ 1; 
end; 

QD.1.SUM = .R0W.128_255.0FF ♦ .C0L.0_127.0FF; 


!Sum number of failures in quad 1 
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5583 

5584 

5585 

5586 

5587 

5588 

5589 

5590 

5591 

5592 

5593 

5594 

5595 

5596 

5597 

5598 

5599 

5600 

5601 

5602 

5603 

5604 

5605 

5606 

5607 

5608 

5609 

5610 

5611 

5612 

5613 

5614 

5615 

5616 

5617 

5618 

5619 

5620 

5621 

5622 

5623 

5624 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

5634 


ROUTINE DECLARATIONS 


9 1 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 

QD 2 SUN = .ROW 0 127 OFF ♦ .COL 128 255 OFF; 
QD“3lSUM = .R0W.128.255.0FF ♦ .COL.128_255.OFF; 
end; 


TOPS-20 Bliss-16 V2<212> 
PA:<NEALE>PMSKL4.BLl.1 (47) 

.'Sum number of failures inquad 2 
.'Sum number of failures in quad 3 


Page 1 72 

SEQ 0207 


QD.0.SUM = .ROW.0_127.0FF ♦ .C0L.0.127.0FF; 


.'Sum number of failures in quag 0 


if .QD 0 SUM gtr 14 
then 


!Is quad 0 offsets > 14 


begin 

ERRSF (ERR 7, CONCMSG, 0); .'Report the error 

PRINTB (A 8 N PRlflT, .ARR .NUM. .BNK .NUM. .NIB NUM); IPrint where 

DEGRADE MOd’rEG C.BNK NUMl = SET Fl 6; .'Indicate this is a degraded bank 

OVER FLOW =~.QD 0 SUM - 14; ! Calculate the difference 


incr ROW.NUM from 0 to 127 do 


IDelete row offsets until eql 14 

.'Is this row bad 


if .BLAST.TBL C.BNK.NUM, .ROW.NUM. .NIB.NUM, 1. 03 
then 

begin 

BLAST TBL C.BNK NUM. .ROW.NUM. .NIB.NUM. 1 . 03 * CLR.FLG; 

OVER Flow = .OVERFLOW - T; .'Decrement the difference 
QD.2.SUM = . QD.2.SUM - 1; IDelete other sums using this row 


! Clear this bad row 


if .OVER.FLOW eql ZERO then ex it loop; 
end; 


lExit if difference eql 0 


if .OVER.FLOW neq ZERO 
tnen 

begin 


! Did deleting bad row get the difference to 14 


incr COL.NUM from 0 *o 127 dc IDelete bad column until offsets are at 14 

if .BLAST.TBL C.BNK.NUM. .COL.NUM ♦ .COL.BASE. .NIB.NUM. 1. 03 
then 

BLAST.TBL C.BNK.NUP!. .COL.NUM ♦ .COL.BASE, .NIB.NUM. 1. 03 = CLR.FLG; 
OVER.FLOW = .OVER FLOW - T; I Decrement the difference 
QD 1.SUM = .QD 1 Sum - 1; IDelete this column from other sums 


if .OVER.FLOW eql ZERO then exit loop; 
end; 


lExit if difference is at 0 


end; 


end; 


if . BNK.NUM.SE C gtr 127 
then 

begin 


I Is this a 64k part 



BSKEL4 

REV B PATCH 00 

5635 

5636 

5637 

5638 

5639 

5640 

5641 

5642 

5643 

5644 

5645 

5646 

5647 

5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 

5668 

5669 

5670 

5671 

5672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5680 

5681 

5682 

5683 

5684 

5685 

5686 


ROUTINE DECLARATIONS 


C 1 

1 8-Ha r-1 982 16:07:57 
18-Mar-1982 15:44:41 

!Is quad 1 sum > 14 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.8LI.1 (47) 


if .0D.1.SUM gtr 14 
then 

ErSsP (ERR 7, CON CMSG. 0); .'Report the error 
PRINTS (A S N PRINT, .ARR.NUM, .BNK NUM. .NIB.NUM); .'Tell where 
DEGRADE MOD'rEG C.BNK NUM3 = SET FLO; ! Indicate this is a degraded bank 
OVER FLOW =“.0D 1 SUM - 14; TCalculate the difference 


incr ROW.NUM from 128 to 255 do 


IDelete bad rows until offsets are at 14 
!is this a bad row 


if .BLAST.TBL C.BNK.NUM. .ROW.NUM, .NIB.NUM. 1, 03 
then 

BL?ST TBL C.BNK NUM, .ROW.NUM, .NIB.NUM, 1 , 03 = CLR.FLG; 

OVER FLOW = .OVERFLOW - T; IDecrement the difference 
QD_3“SUM = .QD.3.SUM - 1; IDelete other sums of this bad row 

if .OVER.FLOW eql ZERO then exitloop; ‘Exit when difference is at 0 

end; 

Us this quad offset at 14 now 


if .OVER.FLOW neq ZERO 
then 

begin 

incr COL.NUM from 0 to 127 do 


IDelete bad coluans until offsets are at 14 


if .BLAST. TBL C.BNK.NUM, .COL.NUM ♦ .COL.BASE, .NIB.NUM, 1, 03 
then 

BlKsT.TBL C.BNK.NUM, .COL.NUM ♦ .COL.BASE, .NIB.NUM, 1, 03 = CLR.FLG; 
OVER.FLOW = .OVER.FLOW - T; I Decrement difference 


end; 


end; 


if .OVER.FLOW eql ZERO then exitloop; 
end; 


Us this quad offsets > 14 


I Exit when at 0 


if . QD.2.SUM gtr 14 
then 

ErSsP (ERR 7, CON C MSG. 0); I Report the error 
PRINTS (AB.N.PRIRt: .ARR.NUM. .BNK. NUM, .NIB.NUM); . .'Report where 
DEGRADE MOD REG C.BNK.Nlfftf = SET.FL5; .'Indicate this is a degraded bank 
OVER.FLOW = .QD.2.SUH - 14; TCalculate the difference 

incr ROW.NUM from 0 to 127 do IDelete bad rows until offset are at 14 

if .BLAST. TBL C.BNK.NUM, .ROW.NUM, .NIB.NUM, 1, 03 Us this a bad row 
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5687 

5688 

5689 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

5704 

5705 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

5713 

5714 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5722 

5723 

5724 

5725 

5726 

5727 

5728 

5729 

5730 

5731 

5732 

5733 

5734 

5735 

5736 

5737 

5738 


D 1 

18-Nar-1982 16:07:57 TOPS-20 Bliss-16 V2C212) 

18-Mar-1982 15:44:41 PA:<NEALE>PNSKL4.BLI .1 (47) 


then 


begin 

BLAST TBL C.BNK.NUN, .ROW NUN, .NIB.NUN, 1, 03 = CLR.FLG; 
OVER.FLOW = .OVER.FLOW - T; {Decrement the difference 

if .OVER.FLOW eql ZERO then ex it loop; !Exit when at 0 


end; 

if .OVER FLOW neq ZERO ! Is quad offsets at 14 yet 
then 

begin 

incr COL.NUN from 128 to 255 do .'Delete bad columns until offsets at 14 

if .8LAST.TBL C.BNK.NUN, .COL.NUN ♦ .COL.BASE. .NIB.NUN. 1, 03 
then 

BL?ST TBL C.BNK.NUN, .COL.NUN ♦ .COL.BASE, .NIB.NUN, 1. 03 = CLR.FLG 
QD 3 SUN = .QD 3.SUN - 1; {Delete other sums of this column 
OVERFLOW = .07ER.FL0W - 1; .'Decrement the differnece 

If .OVER.FLOW eql ZERO then exitloop; {Exit when at 0 

end; 

end; 


end; 


if .QD.3.SUN gtr 14 
then 

ER^SF (ERR 7, CON CNSG. 0); 


! Is this quad offsets > 14 


.'Report the error 


PRINTS (A 8 N PRIST: .ARR NUN. .BNK .NUN, .NIB.NUN); 'Print where 
DEGRADE.N5D.REG C.BNK.NUN} = SET FL5; !* 


OVER.FLOW =“.QD.3_SUN“- 14; 
incr ROU.NUN from 128 to 255 do 


.Indicate this Is a degraded bank 

TCalculate the difference 

.'Delete bad rows until offset are at 14 


if .8LAST.TBL C.BNK.NUN, .ROW.NUN, .NIB.NUN, 1. 03 !Is this a bad row 
then 

BL?ST TBL C.8NK NUN. .ROW.NUN. .NIB.NUN, 1. 03 * CLR.FLG; 'Clear 

OVER.FLOW = .OVER.FLOW - T; {Decrement the difference 

if .OVER.FLOW eql ZERO then exitloop; {Exit when at 0 


end; 

if .OVER FLOW neq ZERO !Is quad offsets at 14 yet 
then 
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5739 

5740 

5741 

5742 

5743 

5744 

5745 

5746 

5747 

5748 

5749 

5750 

5751 

5752 

5753 

5754 

5755 

5756 

5757 

5758 

5759 

5760 

5761 

5762 

5763 

5764 

5765 

5766 

5767 


E 1 

18-Nar-1982 16:C 7 :57 TOPS-20 Bliss-16 V2(212> 

ROUTINE DECLARATIONS 18-Nar-1982 15:44:41 PA:<NEALE>PNSKL4.8LI . 1 (47) 

begin 

incr COL.NUN from 128 to 255 do IDelete bad column until offset at 14 

if .BLAST. TBL C.BNK.NUN. .COL.NUN ♦ .COL.BASE, .NIB.NUN, 1, 03 
then 

BlSIsT TBL C.BNK NUN, .COL NUN ♦ .COL.BASE, .NIB.NUN, 1, 03 « CLR.FLG; 
OVERFLOW = .OVER.FLOU - T; JDecrement difference 

if .OVER.FLOU eql ZERO then exitloop; ! Exi t when at 0 

end; 

end; 

end; 

end; 

end; 

0R_0LD.NEU.PD (.BNK.NUN); !0r the old prom data with new prom data 

end; 

BNK.NUN = .BNK.NUN ♦ 1; ! Increment to the next bank 

end; 

end; 


Page 175 
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015266 

004167 

0000 00G 

IN. BLAST. TBL: 







JSR 

R1.JSAVE5 

• 

# 

5427 

015272 

162706 

000030 

SUB 

#30, SP 



015276 

004767 

167752 

JSR 

PC, I. ERROR. NAP 

■ 

m 

5502 

015302 

016646 

000050 

NOV 

50<SP),-(SP) 

; ARRS6NK.SEL,* 

5503 

015306 

004767 

177042 

JSR 

PC.RD.OLD.PRON.DAT 



015312 

012716 

000052 

NOV 

#52, (SP) 

« 

• 

5504 

015316 

060616 


ADD 

SP,(SP> 

; ARRS6NK.SEL,* 


015320 

016746 

040414’ 

NOV 

SNA. SEL.POS, -(SP) 



015324 

012746 

000002 

NOV 

#2,-(SP) 



015330 

005046 


CLR 

-<§P) 



015332 

004767 

OOOOOOG 

JSR 

PC.BLSGT2 



015336 

010066 

000010 

NOV 

RO.IO(SP) 

; •, BNK.NUN 


015342 

012716 

000060 

NOV 

#60, (SP) 


5505 

015346 

060616 


ADD 

SP.(SP) 

; ARRS8NK.SEL,* 


015350 

016746 

040412’ 

NOV 

ARR.SEL.POS.-(SP) 



015354 

012746 

000004 

NOV 

#4,-(SP) 



015360 

005046 


CLR 

-(SP) 



015362 

004767 

OOOOOOG 

JSR 

PC, BLSGT2 



015366 

010066 

000044 

NOV 

R0.441SP) 

; *,ARR.NUN 




BSKEL4 





18-Har-1982 16:07:57 

TOPS-20 BLiss—16 V2(2 12) 
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18-Har-1982 15:44:41 

PA:<NEALE>PMSAL4.BLI.1 (47) 

SEO 0211 

015372 

005066 

000042 


CLR 

42(SP) 


SEL.6NK 

5507 

015376 

000167 

002740 


J HP 

48$ 




015402 

016646 

000016 

1$: 

MOV 

16(SP) ,-(SP) 


BNK.NUM,* 

5509 

015406 

004767 

177600 


JSR 

PC, BIT. CLR. OLD. NEW 




015412 

016646 

000020 


MOV 

20(SP),-(SP) 


BNK.NUM,* 

5511 

015416 

004767 

173622 


JSR 

PC. S. BLAST. TBL 




015422 

005726 



TST 

(SP) + 




015424 

006000 



ROR 

RO 




015426 

103402 



8L0 

2$ 




015430 

000167 

002674 


JMP 

47$ 




015434 

016666 

000020 000022 

2$: 

MOV 

20(SP) ,22(SP) 


BNK.NUM.* 

5514 

015442 

006266 

000022 


ASR 

22CSP) 




015446 

006266 

000022 


ASR 

22 (SP) 




015452 

006266 

000022 


ASR 

22CSP) 




015456 

016646 

000022 


MOV 

22(5P) ,-(SP) 




015462 

062716 

040420' 


ADD 

#8AD.8NK.REG,(SP) 




015466 

016646 

000022 


MOV 

22(SP).-(SP) 


BNK.NUM.* 


015472 

042716 

177770 


B1C 

#1 77770. (SP) 




015476 

012746 

000001 


MOV 

#1,-(SP) 




015502 

011646 



MOV 

(SP). -(SP) 




015504 

004767 

OOOOOOG 


JSR 

PC.BLSPU2 




015510 

016600 

000030 


MOV 

30(SP),R0 


BNK.NUM,* 

5526 

015514 

000300 



SWAB 

RO 




015516 

105000 



CLR8 

RO 




015520 

006300 



ASL 

RO 




015522 

010003 



MOV 

R0.R3 




015524 

005005 



CLR 

R5 


NI8.NUM 

5516 

015526 

00 5066 

000044 

3$: 

CLR 

44(SP) 


ROW. 0.127. OFF 

5518 

015532 

005066 

000046 


CLR 

46(SP) 


ROW. 128. 255. OFF 

5519 

015536 

005066 

000050 


CLR 

50(SP) 


COL. 0.127. OFF 

5520 

015542 

005066 

000052 


CLR 

52 (SP) 


COL. 128. 255. OFF 

5521 

015546 

005002 



CLR 

R2 


ROW. NUN 

5523 

015550 

010304 


4$: 

MOV 

R3.R4 



5526 

015552 

060204 



ADD 

R2.R4 


ROW. NUN.* 


015554 

006304 



ASL 

R4 




015556 

010446 



MOV 

R4, -(SP) 




015560 

062716 

030372' 


ADD 

#8LAST.TBL,(SP) 




015564 

010546 



MOV 

R5.-(SP> 


NIB. NUN,* 


015566 

012746 

000001 


MOV 

#1,-(SP) 




015572 

005046 



CLR 

-(SP) 




015574 

004767 

OOOOOOG 


JSR 

PC ,BL$GT2 




015600 

062706 

000006 


ADD 

#6.SP 




015604 

006000 



ROR 

RO 




015606 

005566 

000046 


ADC 

46(SP) 


ROW. 0.127. OFF 

5528 

015612 

010416 



MOV 

R4, (SP) 



5530 

015614 

062716 

010230' 


ADD 

f ERROR. MAP, (SP) 




015620 

010546 



MOV 

R5,-(SP) 


NJ8.NUM,* 


015622 

012746 

000001 


MOV 

#1,-(SP) 




015626 

005046 



CLR 

-(SP) 




015630 

004767 

OOOOOOG 


JSR 

PC.BLSGT2 




015634 

062706 

000010 


ADD 

#10,SP 




015640 

006000 



ROR 

RO 





i 8SKEL4 
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PA: <NEALE>PMSAL4.8LI . 1 (47) 

SEQ 0212 

015642 

005566 

000044 


ADC 

44 (SP) 

; ROW. 0.127. OFF 

5532 

015646 

005202 



INC 

32 

; ROW. NUN 

5523 

015650 

020227 

000177 


CMP 

R2,#177 

; ROW. NUN,* 


015654 

003735 



BLE 

4$ 



01 5656 

005002 



CLR 

R2 

; COL. NUN 

5536 

015660 

010204 


5$: 

MOV 

R2,R4 

; COL.NUM,* 

5539 

015662 

066704 

040372’ 


ADD 

COL. BASE, R4 



015666 

060304 



ADD 

R3.R4 



015670 

006304 



ASL 

R4 



015672 

062704 

030372’ 


ADD 

#BLAST.TBL,R4 



015676 

010446 



MOV 

R4,-(SP) 



015700 

010546 



MOV 

R5,-(SP) 

; NIB.NUM,* 


015702 

012746 

000001 


MOV 

#1,-(SP) 



015706 

005046 



CLR 

-(SP) 



015710 

004767 

OOOOOOG 


JSR 

PC,BL$GT2 



015714 

062706 

000006 


ADD 

#6,SP 



015720 




ROR 

RO 



015722 

005566 

000052 


ADC 

52 (SP) 

; COL. 0.127. OFF 

5541 

015726 

010204 



NOV 

R2,R4 

; COL. NUN,* 

5543 

015730 

066704 

040372* 


ADD 

COL. BASE. R4 



015734 

060304 



ADD 

R3.R4 



015736 

006304 



ASL 

R4 



015740 

062704 

010230’ 


ADD 

f ERROR. MAP ,R4 



015744 

010416 



NOV 

R4, (SP) 



015746 

010546 



NOV 

R5.-(SP> 

; NIB. NUN,* 


015750 

012746 

000001 


NOV 

#1.-(SP) 



015754 

005046 



CLR 

-(SP) 



015756 

004767 

OOOOOOG 


JSR 

PC.BL$GT2 



015762 

062706 

000010 


ADD 

#1 0,SP 



015766 




ROR 

RO 



015770 

005566 

000050 


ADC 

50 (SP) 

; COL. 0.127. OFF 

5545 

015774 

005202 



INC 

R 2 

; COL.NUM 

5536 

015776 

020227 

000177 


CNP 

R2,#177 

; COL.NUM,* 


016002 

003726 



8LE 

5$ 



016004 

026727 

040416* 000177 


CNP 

BNK. NUN. SEC, #177 

m 

5549 

016012 

003543 



BLE 

8$ « 



016014 

012702 

000200 


NOV 

M200.R2 

; *, ROW. NUN 

5553 

016020 

010304 


6$: 

NOV 

R3.R4 

• 

5559 

016022 

060204 



ADD 

R2.R4 

; ROW. NUN,* 


016024 

006304 



ASL 

R4 



016026 

010446 



NOV 

R4,-(SP) 



016030 

062716 

030372’ 


ADD 

#8LAST.TBL,(SP) 



016034 

010546 



NOV 

R5,-(SP) 

; NIB.NUM,* 


016036 

012746 

000001 


NOV 

#1.-(SP) 



016042 

005046 



CLR 

-(SP) 



016044 

004767 

OOOOOOG 


JSR 

PC.BLSGT2 



016050 

062706 

000006 


ADD 

#6 ,SP 



016054 




ROR 

RO 



016056 

005566 

000050 


ADC 

50(SP) 

; ROW. 128. 255. OFF 

5561 

016062 

010416 



NOV 

R4, (SP) 

# 

5563 

016064 

062716 

010230’ 


ADD 

#ERR0R. NAP, (SP) 



016070 

010546 



NOV 

R5,-(SP) 

; NIB.NUM,* 



RSKFL 4 






18-Mar-1982 

16:07:57 

TOPS-20 Bliss-16 V2 (212) 

Page 178 

REV B PATCH 00 

ROUTINE 

DECLARATIONS 



18-Mar-1982 

15:44:41 

PA:<NEALE>PMSKL4.BLI.1 (47) 

SEQ 0213 

016072 

012746 

000001 



MOV 

#1.-(SP> 





016076 

005046 




CLR 

-(SP) 





016100 

004767 

OOOOOOG 



JSR 

PC.8LSGT2 





01 61 0A 

062706 

000010 



ADD 

no, SP 





016110 





ROR 

RO 





016112 

005566 

OOOC^ 6 



ADC 

46CSP) 


• 

0 

ROW. 128. 255. OFF 

556S 

016116 

005202 




INC 

R2 


# 

ROW.NUM 

5553 

016120 

020227 

000377 



CMP 

R2,#377 


• 

ROW.NUM,* 


016124 

003735 




BLE 

6$ 





016126 

012702 

000200 



MOV 

#200, R2 


0 

*,COL.NUM 

5569 

016132 

010204 



7$: 

MOV 

R2.R4 


0 

COL.NUM,* 

5572 

016134 

066704 

040372* 



ADD 

COL. BASE. R4 





016140 

060304 




ADD 

R3.R4 





016142 

006304 




ASL 

R4 





016144 

062704 

030372* 



ADD 

#8LAST.TBL,R4 





016150 

010446 




MOV 

R4,-(SP) 





016152 

010546 




MOV 

R5.-CSP) 


0 

NIB.NUM,* 


016154 

012746 

000001 



MOV 

#1.-(SP) 





016160 

005046 




CLR 

-(SP) 





016162 

004767 

OOOOOOG 



JSR 

PC.BLJGT2 





016166 

062706 

000006 



ADD 

#6,SP 





016172 





ROR 

RO 





016174 

005566 

000054 



ADC 

54 (SP) 


• 

0 

COL. 128. 255. OFF 

5574 

016200 

010204 




MOV 

R2.R4 


0 

COL.NLM,* 

5576 

016202 

066704 

040372’ 



ADD 

COL. BASE ,R4 





016206 

060304 




ADD 

R3.R4 





016210 

006304 




ASL 

R4 





016212 

062704 

010230’ 



ADD 

#ERR0R.HAP,R4 





016216 

010416 




MOV 

R4,(SP) 





016220 

010546 




MOV 

R5.-(SP) 


0 

NI6.NUM,* 


016222 

012746 

000001 



MOV 

#1.-(SP) 





016226 

005046 




CLR 

-(SP) 





016230 

004767 

OOOOOOG 



JSR 

PC.BLSGT2 





016234 

062706 

000010 



ADD 

#l6.SP 





016240 

006000 




ROR 

RO 





016242 

005566 

000052 



ADC 

52(SP) 



COL. 128. 255. OFF 

5578 

016246 

005202 




INC 

R2 



COL.NUM 

5569 

016250 

020227 

000377 



CMP 

R2,#377 



COL.NUM,* 


016254 

003726 




BLE 

7$ 





016256 

016666 

000046 

000036 


MOV 

46(SP),36(SP) 



ROW. 128. 255. OFF, QD.1 .SUM 

5582 

016264 


000050 

000036 


ADD 

50(SP),36(SP) 



COL. 0.1 27. OFF, 0D.1. SUM 


016272 

016666 

000044 

000040 


MOV 

44 (SP), 40(SP) 



R OW. 0.1 27. OFF, OD. 2. SUM 

5583 

016300 

IiWl 

000052 

1 • I • i 1 1 • M* 


ADD 

52(SP),40(SP) 



COL. 128. 255. OFF, QD. 2. SUM 


016306 

016666 

000046 

000042 


MOV 

46(SP).42(SP) 



ROW. 128. 255. OFF, QD. 3. SUM 

5584 

016314 


000052 



ADD 

52(SP),42(SP) 



COL. 128. 255. OFF, QD. 3. SUM 


016322 

016666 

000044 

000034 

8$: 

MOV 

44(SP).34(SP) 



ROW. 0.1 27. OFF, QD.O. SUM 

5587 

016330 


000050 

000034 


ADD 

50(SP).34(SP) 



C0L.0.127.OFF.QD.0.SUM 


016336 

026627 

000034 

000016 


CMP 

34 (SP) ,#16 



QD.O. SUM,* 

5589 

016344 

003571 




BLE 

17S 





016346 

104454 




TRAP 

54 




5592 

016350 

000007 




.WORD 

7 





016352 

001422* 




.WORD 

CON. C. MSG 






BSKEL4 


ROUTINE DECLARATIONS 


REV B PATCH 00 


016354 

000000 



016356 

010546 



016360 

016646 

000032 


016364 

016646 

000062 

003124' 


016370 

012746 


016374 

012746 

000004 


016400 

010600 



016402 

104414 



016404 

016616 

oo 

1"C> 

oo 

-i^o 

Ml' 

I'l' 


016410 

062716 


016414 

016646 

000042 


016420 

042716 

177770 


016424 

012746 

000001 


016430 

011646 



016432 

004767 

000000G 


016436 

016601 

000054 


016442 

162701 

000016 


016446 

005002 


9$: 

016450 

010304 


016452 

060204 



016454 

006304 



016456 

062704 

030372' 


016462 

010446 



016464 

010546 



016466 

012746 

000001 


016472 

005046 



016474 

004767 

000000G 


016500 

062706 

000010 


016504 

006000 



016506 

103021 



016510 

010446 



016512 

010546 

000001 


016514 

012746 


016520 

005046 



016522 

004767 

0000006 


016526 

005301 



016530 

005366 

000070 


016534 

005701 



016536 

001003 



016540 

062706 

000010 


016544 

000406 


10$: 

016546 

062706 

000010 

016552 

005202 


11$: 

016554 

016560 

020227 

003733 

000177 

12$: 

016562 

005701 


016564 

001457 



016566 

005002 


13$: 

016570 

010204 


016572 

066704 

040372' 


016576 

060304 



016600 

006304 




I 1 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 


.U0RD 

0 

MOV 

R5,-(SP) 

MOV 

32(SP) ,-(SP) 

MOV 

62(SP).-(SP) 

MOV 

#A.B.N. PRINT. -(SP) 

MOV 

#4,-(SP) 

MOV 

SP.RO 

TRAP 

14 

MOV 

44(SP).(SP) 

ADD 

#DEGRADE.MOD.REG. (SP) 

MOV 

42(SP).-(SP) 

BIC 

#177770. (SP) 

MOV 

#1.-(SP) 

MOV 

(SP).-(SP) 

JSR 

PC,BL$PU2 

MOV 

54<SP).R1 

SUB 

#16, R1 

CLR 

R2 

MOV 

JJ3.R4 

ADD 

R2.R4 

ASL 

R4 

ADD 

#BLAST.TBL,R4 

MOV 

R4.-(SP) 

MOV 

R5, -(SP) 

MOV 

#1.-(SP> 

CLR 

-(SP) 

JSR 

PC.BL$GT2 

ADD 

#10.SP 

ROR 

RO 

BCC 

11$ 

MOV 

R4,-(SP) 

MOV 

R5, -(SP) 

MOV 

#1,-(SP) 

CLR 

-(SP) 

JSR 

PC,BL$PU2 

DEC 

R1 

DEC 

70 (SP) 

TST 

R1 

BNE 

10$ 

ADD 

#10, SP 

BR 

12$ 

ADD 

#10, SP 

INC 

R2 

CMP 

R2,#177 

BLE 

9$ 

TST 

R1 

BEO 

16$ 

CLR 

R2 

MOV 

R2.R4 

ADD 

COL. BASE ,R4 

ADD 

R3.R4 

ASL 

R4 


T0PS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.8LI.1 (47) 

Page 179 
SEQ 0214 

; NIB.NUM,* 

; BNK.NUM. * 

; ARR.NUM,* 

5593 

; SP.* 

5594 

; BNK.NUM,* 


; OD.O. SUM, OVER. FLOW 
; *. OVER. FLOW 
; ROW.NUM 

; ROW.NUM.* 

5595 

5597 

5599 

; NIB.NUM,* 


« 

; NIB.NUM,* 

5602 

; OVER. FLOW 
; 0D.2.SUM 
; OVER. FLOW 

5603 

5604 
5606 

; ROW.NUM 
; ROW.NUM,* 

5601 

5597 

; OVER. FLOW 

5610 

; COL.NUM 
; COL.NUM,* 

5614 

5616 


BSKEL4 


REV B PATCH 00 

ROUTINE 

DECLARATIONS 



016602 

062704 

030372* 



ADD 

016606 

010446 




MOV 

016610 

010546 




MOV 

016612 

012746 

000001 



MOV 

016616 

005046 




CLR 

016620 

004767 

0C0000G 



JSR 

016624 

062706 

000010 



ADD 

016630 

006000 




ROR 

016632 

103030 




BCC 

016634 

010204 




MOV 

016636 

066704 

040372* 



ADD 

016642 

060304 




ADD 

016644 

006304 




ASl 

016646 

062704 

030372* 



ADD 

016652 

010446 




MOV 

016654 

010546 




MOV 

016656 

012746 

000001 



MOV 

016662 

005046 




CLR 

016664 

004767 

000000G 



JSR 

016670 

005301 




DEC 

016672 

005366 

000066 



DEC 

016676 

005701 




TST 

016700 

001003 




BNE 

016702 

062706 

000010 



ADD 

016706 

000406 




BR 

016710 

062706 

000010 


14$: 

ADD 

016714 

005202 



15$: 

INC 

016716 

020227 

000177 



CMP 

016722 

003722 




BLE 

016724 

062706 

000020 


16$: 

ADD 

016730 

026727 

040416* 

000177 

17$: 

CMP 

016736 

003002 




BGT 

016740 

000167 

001334 



JMP 

016744 

026627 

000036 

000016 

18$: 

CMP 

016752 

003567 




BLE 

0*6754 

104454 




TRAP 

016756 

000007 




.WORD 

016760 

001422* 




.WORD 

016762 

000000 




.WORD 

016764 

010546 




MOV 

016766 

016646 

000032 



MOV 

016772 

016646 

000062 



MOV 

016776 

012746 

003124* 



MOV 

017002 

012746 

000004 



MOV 

01/006 

010600 




MOV 

017010 

104414 




TRAP 

017012 

016616 

000044 



MOV 

017016 

062716 

040424' 



ADD 

017022 

016646 

000042 



MOV 

017026 

042716 

177770 



BIC 

017032 

012746 

000001 



MOV 

017036 

011646 




MOV 


J 1 

18-Har-1982 16:07:57 TOPS-20 BUss-16 V2C212) 

18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.BLI.1 (47) 


#8LAST.TBL,R4 


R4,-(SP> 


R5.-(SP) 

; NIB.NUM,* 

#1.-(SP) 


-<S*>> 


PC.BL$GT2 


#10. SP 


RO 


15$ 


R2.R4 

; COL.NUM,* 

COL. BASE. R4 


R3.R4 


R4 


#8LAST.TBL.R4 


R4.-(SP) 


R5.-CSP) 

; NIB.NUM.* 

#1.-(SP) 


-(SP) 


PC.BL$PU2 


R1 

; OVER. FLOW 

66(SP) 

; QD.1.SUM 

R1 

; OVER. FLOW 

14$ 


#10. SP 


16$ 


#10. SP 

• 

0 

R2 

; COL.NUM 

R2.#177 

; COL.NUM.* 

1 3$ 

#20. SP 

• 

• 

BNK.NUM. SEC,#177 

• 

9 

18$ 


45$ 


36(SP),#16 

; QD.1.SUM. 

27$ 


54 

• 

7 


CON. C. MSG 


0 


R5,-(SP> 

; NIB.NUM.* 

32(SP),-(SP> 

; BNK.NUM.* 

62(SP).-(SP) 

; ARR.NUM.* 

#A.B.N. PRINT. -(SP) 


#4»— (SP) 


SP.RO 

; SP.* 

14 


44(SP) ,(SP) 

• 

#DE GRADE . MOD . RE G . ( SP) 


42(SP).-(SP> 

; BNK.NUM.* 


v jr / * \ jr / 

#177770. <SP) 

#1,-(SP) 

(SP).-(SP) 


Page 180 
SEQ 0215 


5619 


5620 

5621 
5623 


5618 

5614 


5591 

5631 


5635 

5638 

5639 


5640 


BSKEL4 


ROUTINE DECLARATIONS 


REV E PATCH 00 


017040 

004767 

000000G 


017044 

016601 

000056 


017050 

162701 

000016 


017054 

012702 

000200 

19$: 

017060 

010304 


017062 

060204 



017064 

006304 

030372* 


017066 

062704 


017072 

010446 



017074 

010546 



017076 

012746 

000001 


017102 

005046 



017104 

004767 

OOOOOOG 


017110 

062706 

000010 


017114 




017116 

103021 



017120 

010446 



017122 

010546 



017124 

012746 

000001 


017130 

005046 



017132 

004767 

OOOOOOG 


017136 

005301 



017140 

005366 

000072 


017144 

005701 



017146 

001003 



017150 

062706 

000010 


017154 

000406 


20$: 

017156 

062706 

000010 

017162 

005202 


21$: 

017164 

020227 

000377 


017170 

003733 


22$: 

017172 

005701 


017174 

001454 



017176 

005002 


23$: 

017200 

010204 


017202 

066704 

040372* 


017206 

060304 



017210 

006304 

030372* 


017212 

062704 


017216 

010446 



017220 

010546 



017222 

012746 

000001 


017226 

005046 



017230 

004767 

0000005 


017234 

062706 

000010 


017240 




017242 

103025 



017244 

010204 



017246 

066704 

040372* 


017252 

060304 



017254 

006304 



017256 

062704 

030372* 



K 1 

18-Mar-1982 16:07:57 
1 8-Ha r-1 982 15:44:41 


JSR 

PC,8L$PU2 

MOV 

56(SP),R1 

sue 

#16.R1 

MOV 

#200. R2 

MOV 

R3.R4 

ADD 

R2.R4 

ASL 

R4 

ADD 

#BLAST.TBL,R4 

MOV 

R4.-(SP) 

MOV 

R5.-CSP) 

MOV 

#1.-(SP) 

CLR 

-(SP) 

JSR 

PC.BL$GT2 

ADD 

#10. SP 

ROR 

RO 

BCC 

21$ 

MOV 

R4.-CSP) 

MOV 

R5.-CSP) 

MOV 

#1.-(SP) 

CLR 

-(SP) 

JSR 

PC.BL$PU2 

DEC 

R1 

DEC 

72(SP) 

TST 

R1 

8NE 

20$ 

ADD 

#10. SP 

BR 

22$ 

ADD 

#10. SP 

INC 

R2 

CMP 

R2.#377 

BLE 

19i 

TST 

R1 

BEQ 

26$ 

CLR 

R2 

MOV 

R2.R4 

ADD 

COL. BASE. R4 

ADD 

R3.R4 

ASL 

R4 

ADD 

#8LAST.TBL,R4 

MOV 

R4.-CSP) 

MOV 

R5,-(SP> 

MOV 

#1.-(SP) 

CLR 

-(SP) 

JSR 

PC.8L$GT2 

ADD 

#10. SP 

ROR 

RO 

BCC 

25$ 

MOV 

R2.R4 

ADD 

COL. BASE, R4 

ADD 

R3.R4 

ASL 

R4 

ADD 

#8LAST.TBL,R4 


TOPS-20 Bliss-16 V2 (21 2) 

Page 181 

PA:<NEALE>PMSKL4.8LI .1 (47) 

SEQ 0216 

; QD.1. SUM, OVER. FLOW 
; *, OVER. FLOW 

5641 

; *. ROW.NUM 

; ROW.NUM,* 

5643 

5645 

; NIB.NUM,* 

; NIB.NUM,* 

5648 

; OVER. FLOW 

5649 

; QD.3.SUM 

5650 

; OVER. FLOW 

5652 

• 

5647 

; ROW.NUM 
; ROW.NUM,* 

5643 

; OVER. FLOW 

5656 

; COL.NUM 

5660 

; COL.NUM,* 

5662 

; NIB.NUM,* 

; COL.NUM,* 

5665 


BSKEL4 






18-Mar-1982 

16:07:57 

TOPS-20 Bliss-16 V2(212) 

Page 162 

REV B PATCH 00 

ROUTINE 

DECLARATIONS 



18-Mar-1982 

15:44:41 

PA:<NEALE>PMSKL4.BLI.1 (47) 

SEO 0217 

017262 

010446 




MOV 

R4,-(SP) 





017264 

010546 




MOV 

R5,-(SP) 


0 

NIB.NUM,* 


017266 

012746 

000001 



MOV 

#1,-(SP) 





017272 

005046 




CLR 

-<SP) 





01 7274 

004767 

OOOOOOG 



JSR 

PC,BL$PU2 





017300 

005301 




DEC 

R1 


0 

OVER. FLOW 

5666 

017302 

001003 




BNE 

24$ 


0 


5668 

017304 

062706 

000010 



ADD 

#10, SP 





017310 

000406 




BR 

26$ 





017312 

062706 

000010 


24$: 

ADD 

#10, SP 


1 


5664 

017316 

005202 



25$: 

INC 

R2 


I 

COL.NUM 

5660 

017320 

020227 

000177 



CMP 

R2.#177 


a 

COL.NUM,* 


017324 

003725 




BLE 

23$ 





017326 

062706 

000020 


26$: 

ADD 

#20, SP 


a 


5637 

017332 

026627 

000040 

000016 

27$: 

CMP 

40(SP).#16 


0 

QD.2.SUM,* 

5676 

017340 

003566 




BLE 

36$ 





017342 

104454 




TRAP 

54 


a 


5679 

017344 

000007 




.WORD 

7 





017346 

001422' 




.WORD 

CON. C. MSG 





017350 

000000 




.WORD 

0 





017352 

010546 




MOV 

R5.-(SP) 



NIB.NUM,* 

5680 

017354 

016646 

000032 



MOV 

32(SP) ,-(SP) 



BNK.NUM,* 


017360 

016646 

000062 



MOV 

62(5P) ,-(SP) 



ARR.NUM,* 


017364 

012746 

003124' 



MOV 

#A.B.N. PRINT, -<SP) 





017370 

012746 

000004 



MOV 

#4 ,-(SP) 





017374 

010600 




MOV 

SP,RO 



SP,* 


017376 

104414 




TRAP 

14 





017400 

016616 

000044 



MOV 

44 (SP) , (SP) 




5681 

017404 

062716 

040424' 



ADD 

#DEGRADE.MOD.REG,(SP) 




017410 

016646 

000042 



MOV 

42(SP).-(SP) 



BNK.NUM,* 


017414 

042716 

177770 



BIC 

#177770. (SP) 





017420 

012746 

000001 



MOV 

#1,-(SP) 





017424 

011646 




MOV 

(SP), -(SP) 





017426 

004767 

OOOOOOG 



JSR 

PC,8L$PU2 





017432 

016601 

000060 



MOV 

60(SP),R1 



QD . 2 . SUM, OVER . F LOW 

5682 

017436 

162701 

000016 



SUB 

#16, R1 



*, OVER. FLOW 


017442 

005002 




CLR 

R2 



ROW. NUN 

5684 

017444 

010304 



28$: 

MOV 

R3,R4 




5686 

017446 

060204 




ADD 

R2,R4 



ROW. NUN,* 


017450 

006304 




ASL 

R4 





017452 

062704 

030372' 



ADD 

#8LAST.TBL,R4 





017456 

010446 




MOV 

R4,-(SP) 





017460 

010546 




MOV 

R5, -(SP) 



NIB.NUM,* 


017462 

012746 

000001 



MOV 

#1,-(SP) 





017466 

005046 




CLR 

-(SP) 





017470 

004767 

OOOOOOG 



JSR 

PC.8LSGT2 





017474 

062706 

000010 



ADD 

#l6,SP 





017500 

■'I'M'X'l 




ROR 

RO 





017502 

103016 




BCC 

30$ 





017504 

010446 




MOV 

R4,-(SP) 



> 

5689 

017506 

010546 




MOV 

R5,-(SP) 



; NIB.NUM,* 


017510 

012746 

000001 



MOV 

#1,-(SP) 






BSKEL4 





18-Mar-1982 

16:07:57 

T0PS-20 Bliss-16 V2(212> 

Page 163 

REV B PATCH 00 

ROUTINE DECLARATIONS 



18-Mar- 1982 

15:44:41 

PA:<NEALE>PMSKL4.BLI.1 (47) 

SEQ 0218 

01 751 A 

005046 



CLR 

-CSP) 




017516 

004767 

OOOOOOG 


JSR 

PC,BL$PU2 




017522 

005301 



DEC 

R1 


; OVER. FLOW 

5690 

017524 

001003 



BNE 

29$ 



5692 

017526 

062706 

000010 


ADD 

#10, SP 




017532 

000406 



BR 

31$ 




017534 

062706 

000010 

29$: 

ADD 

#10, SP 


• 

5688 

017540 

005202 


30$: 

INC 

R2 


; ROW.NUM 

5684 

017542 

020227 

000177 


CMP 

R2.#177 


; ROW.NUM,* 


017546 

003736 



RLE 

28$ 




017550 

005701 


31$: 

TST 

R1 


; OVER. FLOW 

5696 

017552 

001457 



BEQ 

35$ 




017554 

012702 

000200 


MOV 

#20 0,R2 


; *, COL.NUM 

5700 

017560 

010204 


32$: 

MOV 

R2,R4 


; COL.NUM,* 

5702 

017562 

066704 

040372* 


ADD 

COL. BASE, R4 




017566 

060304 



ADD 

R3.R4 




017570 

006304 



ASL 

R4 




017572 

062704 

030372* 


ADD 

#8LAST.TBL,R4 




017576 

010446 



MOV 

R4,-(SP) 




017600 

010546 



MOV 

R5,-(SP) 


; N18.NUM,* 


017602 

012746 

000001 


MOV 

#1,-(SP) 




017606 

005046 



CLR 

-(SP) 




017610 

004767 

OOOOOOG 


JSR 

PC.BL$GT2 




017614 

062706 

000010 


ADD 

#l6, SP 




017620 

006000 



ROR 

RO 




017622 

103027 



BCC 

34$ 




017624 

010204 



MOV 

R2,R4 


; COL.NUM,* 

5705 

017626 

066704 

040372* 


ADD 

COL. BASE, R4 




017632 

060304 



ADD 

R3,R4 




017634 

006304 



ASL 

R4 




017636 

062704 

030372* 


ADD 

#8LAST.TBL,R4 




017642 

010446 



MOV 

R4, -(SP) 




017644 

010546 



MOV 

R5, -(SP) 


; NIB.NUM,* 


017646 

012746 

000001 


MOV 

#1,-(SP) 




017652 

005046 



CLR 

-(SP) 




017654 

004767 

OOOOOOG 


JSR 

PC,8L$PU2 




017660 

005366 

000072 


DEC 

72(SP ) 


; 0D.3.SUM 

5706 

017664 

005301 



DEC 

R1 


; OVER. FLOW 

5707 

017666 

001003 



BNE 

33$ 


• 

5709 

017670 

062706 

000010 


ADD 

#10,SP 




017674 

000406 



BR 

35$ 




017676 

062706 

000010 

33$: 

ADD 

#10. SP 


• 

5704 

017702 

005202 


34$: 

INC 

R2 


; COL.NUM 

5700 

017704 

020227 

000377 


CMP 

R2-#377 


; COL.NUM.* 


017710 

003723 



BLE 

32$ 




017712 

062706 

000020 

35$: 

ADD 

#20, SP 


• 

5678 

017716 

026627 

000042 000016 

36$: 

CMP 

42(SP),#16 


; 0D.3.SUM,* 

5717 

017724 

003565 



BLE 

45$ 




017726 

104454 



TRAP 

54 



5720 

017730 

000007 



.WORD 

7 




017732 

001422* 



.WORD 

CON. C. MSG 




017734 

000000 



.WORD 

0 





REV B PATCH 00 ROUTINE DECLARATIONS 


017736 

010546 



NOV 

017740 

016646 

000032 


NOV 

017744 

016646 

000062 


NOV 

017750 

012746 

003124* 


NOV 

017754 

012746 

000004 


NOV 

017760 

010600 



NOV 

017762 

104414 



TRAP 

017764 

016616 

000044 


NOV 

017770 

062716 

040424' 


ADD 

017774 

016646 

000042 


NOV 

020000 

042716 

177770 


B1C 

020004 

012746 

000001 


NOV 

020010 

011646 



NOV 

020012 

004767 

0000006 


JSR 

020016 

016601 

000062 


NOV 

020022 

162701 

000016 


SUB 

020026 

012702 

000200 


NOV 

020032 

010304 


37$: 

NOV 

020034 

060204 



ADD 

020036 

006304 



ASL 

020040 

062704 

030372* 


ADD 

020044 

010446 



NOV 

020046 

010546 



NOV 

020050 

012746 

000001 


NOV 

020054 

005046 



CLR 

020056 

004767 

0000006 


JSR 

020062 

C52706 

000010 


ADD 

020066 

006000 



ROR 

020070 

103016 



BCC 

020072 

010446 



NOV 

020074 

010546 



NOV 

020076 

012746 

000001 


NOV 

020102 

005046 



CLR 

020104 

004767 

0000006 


JSR 

020110 

005301 



DEC 

020112 

001003 



BNE 

020114 

062706 

000010 


ADD 

020120 

000406 



BR 

020122 

062706 

000010 

38$: 

ADD 

020126 

005202 


39$: 

INC 

020130 

020227 

000377 


CNP 

020134 

003736 



BLE 

020136 

005701 


40$: 

TST 

020140 

001455 



BEQ 

020142 

012702 

000200 


NOV 

020146 

010204 


41$: 

NOV 

020150 

066704 

040372* 


ADD 

020154 

060304 



ADD 

020156 

006304 



ASL 

020160 

062704 

030372' 


ADD 

020164 

010446 



NOV 

020166 

010546 



NOV 


s 



RSICFl 4 
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SEO 0220 

0201 70 

012746 

000001 


NOV 

#1 ,-CSP) 



020174 

005046 



CLR 

-<SP> 



020176 

004767 

000000G 


JSR 

PC.BLSGT2 



020202 

062706 

000010 


ADD 

#10. SP 



020206 

006000 



ROR 

RO 



020210 

103025 



BCC 

43$ 



020212 

010204 



NOV 

R2.R4 

; COL. NUN,* 

5746 

020214 

066704 

040372’ 


ADD 

COL. BASE. R4 



020220 

060304 



ADD 

R3.R4 



020222 

006304 



ASL 

R4 



020224 

062704 

030372* 


ADD 

#8LAST.TBL.R4 



020230 

010446 



NOV 

R4.-(SP> 



020232 

010546 



NOV 

R5.-(SP) 

; NIB. NUN,* 


020234 

012746 

000001 


NOV 

#1.-(SP) 



020240 

005046 



CLR 

-(SP) 



020242 

004767 

OOOOOOG 


JSR 

PC.8LSPU2 



r -20246 

005301 



DEC 

R1 

; OVER. FLOW 

5747 

020250 

001003 



BNE 

42$ 

# 

5749 

020252 

062706 

000010 


ADD 

#10. SP 



020256 

000406 



BR 

44$ 



020260 

062706 

000010 

42$: 

ADD 

#10,SP 

# 

5745 

020264 

005202 


43$: 

INC 

R2 

; COL. MM 

5741 

020266 

020227 

000377 


CNP 

R2.#377 

; COL. MM,* 


020272 

003725 



BLE 

41$ 



020274 

062706 

000020 

44$: 

ADD 

#20. SP 

# 

5719 

020300 

005205 


45$: 

INC 

R5 

; NIB. MM 

5516 i 

020302 

020527 

000011 


CNP 

R5.#11 

; NIB. MM,* 


020306 

003002 



BGT 

46$ 



020310 

000167 

175212 


JNP 

3$ 



020314 

016616 

000030 

46$: 

NOV 

30(SP),(SP) 

; BMC. MM.* 

5761 

020320 

004767 

174600 


JSR 

PC. OR. OLD. NEW. PD 



020324 

062706 

000010 


ADD 

flO.SP 

0 

5513 

020330 

005266 

000020 

47$: 

INC 

20 (SP) 

; BMC. MM 

5764 

020334 

005726 



TST 

(SP)* 

0 

5508 

020336 

005266 

000042 


INC 

42 (SP) 

; SEL.BMC 

5507 

020342 

026666 

000042 000064 

48$: 

CNP 

42(SP).64(SP) 

; SEL.BMC. TSTED.BMC 


020350 

002002 



BGE 

49$ 



020352 

000167 

175024 


JNP 

1$ 



020356 

062706 

000046 

49$: 

ADD 

#46, SP 

0 

5427 

020362 

000207 



RTS 

PC 



; Routine Size: 

799 words 






; NaximtM stack 

depth per invocation: 

42 words 
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5768 

5769 

5770 

5771 

5772 

5773 

5774 

5775 

5776 

5777 

5778 

5779 

5780 

5781 

5782 

5783 

5784 

5785 

5786 

5787 

5788 

5789 

5790 

5791 

5792 

5793 

5794 

5795 

5796 

5797 

5798 

5799 

5800 

5801 

5802 

5803 

5804 

5805 

5806 

5807 

5808 

5809 

5810 

5811 

5812 

5813 

5814 

5815 

5816 

5817 

5818 

5819 


ROUTINE DECLARATIONS 
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routine IN. ERR OR .MAP (TENP.ARRS8NK.SEL , BAD.CHIP) : no 
begin 

!♦♦ 

! Functional Description: 

! The error nap is loaded with all the new and 

! old failing row and sector addresses for a 

failing chip. 

i From this row and sector information stored 

! here it can be calculated which are newly 

! failing rows and columns and the best way 

! to mask them. 

I 

! This global routine will interigate the error 

! map and load the blast table with this chips 

! new masking prom data. 

! This global routine executes in the following 

! steps: 

! 1. It first searches the error map for 

! all bad rows IE. occurances of bad 

! rows > 10 times. 

I 

j 2. It then searches the colimn count 

! table for column counts > 10 

i 

I 3. It then transfers to the remainder table 

! any remaining single cell failures. 

! 4. It then interigates the remainder table 

! for these remaining single cell failures 

and selects the best one for blasting. 

• 

! Formal Parameters: 
i ARRSBNK SEL: 

! "Stores array and bank select address. 

! BAD CHIP: 

S “ Points to the failing chip persently 

| being pm'ed. 

! Implicit Inputs: 


novalue = 


it Inputs: 

DEGRADE.MOD.REG, FLG.REG 


Implicit Outputs: 

If it is determined that this is the first 
all bad chip in this bank then the flag register 
and degrade register bits are set. 

If this is the second all bad chip In this bank 
then the flag register bit abort.array is set. 
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5820 

5821 

5822 

5823 

5824 

5825 

5826 

5827 

5828 

5829 

5830 

5831 

5832 

5833 

5834 

5835 

5836 

5837 

5838 

5839 

5840 

5841 

5842 

5843 

5844 

5845 

5846 

5847 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 

5857 

5858 

5859 

5860 

5861 

5862 

5863 

5864 

5865 

5866 

5867 
586S 

5869 

5870 

5871 


Completion codes: 
none 

Side Effects: 
none 


local 

ARfi.SEL. 
BNK NUN, 
ALL .BAD; 


! Stores array select number 
! Stores bank sel nuaber 

{Records total all bad rows and colinns found bad 


ARR SEl = .TENP ARRSBNK SEK.ARR.SEL.POS, ARRSSEL.SJZE>; !Load the array sel number 

BNK~NUN = .TENP~ARR$BNK SEK.BNK.SEL.POS, BNKSSEL„SIZE>; {Load the bnk sel number 

IjUP.BLST.TBL T); !Init the temporary blast table 

I Search the error map and find failing row 
! addresses which have failed more than 10 
! times. For the rows that don't fail more 
! than ten times save a count of the adjacent 
! coluan pair which will later be used to find 
i these rows which failed less thar, 10 times. 

I 

ALL.BAD = SJERROR.NAP l.BAD.CHIP); {Search error map for all bad rows 

j Did the search of the error map find 10 all 
! bad rows in error within this chip ? 

j 

{ If 10 were found then this is called an all 
{ bad chip else continue and search the column 
! count table for columns in error greater than 
{ 10 times. 


if .ALLJ3AD leq 9 ! Is the all bad count <* 9 

then 

begin 

! Search the column count table for column counts 
! greater than ten. 

ALL.BAD = S.COL.CNT.TBL (.BAD.CHIP. .ALL .BAD); {Search column count table for all bad cols 

I If the search error map plus search column count table 
! found 10 all bad rows and columns then this chip is called 
! all bad and no prom blasting is done else search the remainder 
! table for remaining row column pairs for blasting. 


if .ALL.8AD leq 9 
then 

begin 


! Is the all bad count <> 9 
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ALL BAD = S.REM.TBL (.BAD.CHIP, .ALL.BAD); IFind the regaining bad rows/cols 
end! 


! For the purpose ot report code summary 
! store Into a statistical report table 
! the locations, chip numbers and the ntnber 
! of bad rows and columns blasted In each newly 
! falling mos ram chip. 

if .PM COUNT Iss 128 !0nly store a total of 128 failing chips 

then 

begin 

PM LOG C.PM COUNT. BITS PMJ = .BAD.CHIP; IStore the chip ntaaber 

PM'LOG C.PM" COUNT, BNKS.PMJ * .BNK.NUM; IStore chips bank number 

PM"LOG C.PM COUNT, BRDS PMJ = .ARR.SEL; IStore chips array m^brer 

PM'LOG C.PM, COUNT, UNITl PMJ = .ML.DUT; IStore chips unit number 

PM'LOG C.PM COUNT. SUMS PMJ = .ALL.BAD ♦ 1; IStore ncwber of r/c failing 

°M~COUNT = 7PM.COUNT ♦ T; I Up the number of table enters 

en3; 

if .ALL BAD leq 9 I Were there <® 9 all bad rows/cols found 

then 

begin 

X 1MP.BLST.T8L (.TEMP.ARRSBNK.SEL. .ALL.BAD); IXfer temp blast table to blast table 
end 

els* 

begin 

if not .FLG.REG CF.ALL.BAD.CHIPJ I Is this the first all bad chip in this bank 

then 

begin 

ERR SF (ERR 5, CON A MSG, 0); IReport a condition a 

PRINTS (A B C PRINT. .ARR.SEL, .BNK.NUM, .BAD.CHIP); .'Report where 

FLG REG CFXlC BAD CHIPJ 5 SET FIG; I Set the all bad chip flag 

DE GRADE. MOORES C.BNK.NUMJ = SET.FLG; 

end 

else 

ER^SF (ERR 6, C0N.B.MSG, 0). IReport a condition b 

PRINTS (REP.PRINT, .ARR.SEL); IReport where 

FLG_REG CFjteORT.ARRAYJ = SET.FLG; ! Set the abort array flag 


end; 


R<,KF( 4 
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SEQ 0224 





.S8TTL 

IN. ERROR. MAP ROUTINE 

DECLARATIONS 


020364 

004167 

0000006 

IN. 

ERROR. MAP: 









JSR 

R1.SSAVE5 


# 

5768 

020370 

012746 

000022 


MOV 

#22. -< SP) 



5832 

020374 

060616 



ADD 

SP.(SP) 


; TEMP.ARRSBNK.SE.* 


020376 

016746 

040412' 


MOV 

ARR.SEL.POS.-(SP) 




020402 

012746 

000004 


MOV 

#4,-(SP) 




020406 

005046 



CLR 

-(SP) 




020410 

004767 

OOOOOOG 


JSR 

PC.BLS6T2 




020414 

010005 



MOV 

R0.R5 


; *,ARR.SEL 


020416 

012716 

000030 


MOV 

#30. (SP) 


• 

5833 

020422 

060616 



ADD 

SP.(SP) 


; TEMP.ARRS8NK.SE,* 


020424 

016746 

040414* 


MOV 

BNK.SEL.POS.-(SP) 




020430 

012746 

000002 


MOV 

#2.-(SP) 




020434 

005046 



CLR 

-(SP) 




020436 

004767 

0000006 


JSR 

PC.BLS6T2 




020442 

010001 



MOV 

R0.R1 


; • .8NK.NUM 


020444 

004767 

164460 


JSR 

PC , I . TMP.BLST . TBL 



5834 

020450 

016603 

000034 


MOV 

34(SP).R3 


; BAD. CHIP,* 

5843 

020454 

010316 



MOV 

R3.TSP) 




020456 

004767 

172000 


JSR 

PC. S. ERROR. MAP 




020462 

020027 

000011 


CMP 

R0.#11 


; ALL. BAD,* 

5854 

020466 

003015 



BGT 

2$ 




020470 

010346 



MOV 

R3,-(SP) 



5861 

020472 

010046 



MOV 

RO.-(SP) 


; ALL. BAD,* 


020474 

004767 

171610 


JSR 

PC.S.COL.CNT.TBL 




020500 

020027 

000011 


CMP 

R0.#11 


; ALL. BAD,* 

5869 

020504 

003005 



B6T 

1$ 




020506 

010346 



MOV 

R3,-(SP> 



5872 

020510 

010046 



MOV 

RO.-(SP) 


; ALL. BAD.* 


020512 

004767 

171216 


JSR 

PC, S. REM. TBL 




020516 

022626 



CMP 

(SP)*.(SP)* 



5871 

020520 

022626 


1$: 

CMP 

(SP)*,(SP)* 



5856 

020522 

026727 

000000* 000200 

2$: 

CMP 

PM. COUNT ,#200 



5885 

020530 

002060 



B6E 

3$ 




020532 

016704 

000000* 


MOV 

PM, COUNT, R4 



5888 

020536 

006304 



ASL 

R4 




020540 

006304 



ASL 

R4 




020542 

012702 

000002' 


MOV 

#PM.L0G,R2 




020546 

060402 



ADD 

R4.R2 




020550 

010346 



MOV 

R3.-CSP) 




020 r 52 

000316 



SUAB 

(SP) 




020554 

106016 



RORS 

(SP) 




020556 

006016 



ROR 

(SP) 




020560 

006016 



ROR 

(SP) 




020562 

042716 

160077 


BIC 

#160077,(SP) 




020566 

042712 

017700 


B1C 

#17700, (R2) 




020572 

052612 



8IS 

<SP)*.(R2> 




020574 

010146 



MOV 

R1,;(|P) 4 


; BNK.NUM,* 

5889 

020576 

042716 

177774 


3IC 

#1^7774,(SP) 




020602 

142712 

000003 


BIC8 

#3.(R2) 




020606 

152612 



BISS 

(S^)*,(R2) 





I 




18-Nar-19$5 
18-F 


-Har-1985 


16:07:57 

15:44:41 


R5,-(SP) 

(SP) 

(SP) 

#1 77703, (SP) 

#74, (R2) 

(SP)M R2) 
NL.DUT.-(SP) 

(SP) 

(SP) 

(SP) 

(SP) 

#17777, (SP) 

#160000. (R2) 
(SP)*.(R2) 
R0,PN.L0G*2(R4) 
PN.LOG*2(R4) 

PN. COUNT 

R0,#11 

4$ 

36(SP),-(SP) 

RO.-(SP) 

PC.X.TNP.BLST.TBL 

7% 

#20. FIG. REG 
SS 
54 
5 

CON.A.NSG 

0 

R3.-(SP) 

R1. -(SP) 

R5.-(SP) 

#A.B.C. PRINT, -(SP) 
#4,-(SP) 

SP.RO 

14 

#20,FLG.REG 

R1,R0 

RO 

RO 

RO 

#DE GRADE. NOO.REG.RO 
RO. (SP) 

#lfrf?o! (SP) 
#1,-(SP) 

(SP). -(SP) 

PC.BLSPU2 
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SEO *0225 


ARR.SEL.* 


5890 


5891 


ALL .BAD.* 

5895 

ALL. BAD.* 

5892 
58 9i 

TENP.ARRSBNK.SE,* 

ALL .BAD,* 

589* 


589< 

590- 


590; 

BNK.NW,* 

ARR.SEL.* 

5901 

SP.* 


BNK.NI*,* 

590 

591 

BNK.NUN,* 

fOA 
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SEQ 0226 

021034 

001406’ 



.WORD 

CON. 8. NSC 



021036 

000000 



.WORD 

5 



021040 

010546 



NOV 

R5.-CSP) 

; ARR.SEL,* 

5915 

021042 

012746 

003200’ 


NOV 

#REP. PRINT, -<$P> 



021046 

012746 

000002 


NOV 

#2.-<SP> 



021052 

010600 



NOV 

SP.RO 

; SP,» 


021054 

104414 



TRAP 

14 



021056 

152767 

000100 040422’ 


BISS 

8100.FLG.REG 

• 

§ 

5916 

021064 

005726 


6S: 

TST 

(SP> + 

• 

9 

5902 

021066 

062706 

000022 

7 $: 

ADD 

#22, SP 

• 

9 

5769 

021072 

000207 



RTS 

PC 

• 

9 

5768 

; Routine Size: 

164 words 






; Maximum stack 

depth per Invocation: 

21 words 
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5922 

5923 

5924 

5925 

5926 

59 27 

5928 

5929 

5930 

5931 

5932 

5933 

5934 

5935 

5936 

5937 

5938 

5939 

5940 

5941 

5942 

5943 

5944 

5945 

5946 

5947 

5948 

5949 

5950 

5951 

5952 

5953 

5954 

5955 

5956 

5957 

5958 

5959 

5960 

5961 

5962 

5963 

5964 

5965 

5966 

5967 

5968 

5969 

5970 

5971 

5972 

5973 
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rout in* FB.DATA.CHIPS (TEKP.ARRSBNK.SEL) : novalue = 
begin 


Functional Description: J t , 

This global routine will search the selected banks 
via nass bus transfers looking for additional 
failing chips. 

If a bad chip is detected then the bit 
from which the failure came from is calculated 
and the failing chip number and pattern is 
stored into the bad chip table. 

Formal Parameters: 

ARRSBNK.SEL: 

Stores array and bank select address. 

Implicit Inputs: 

RET_S lATUS, WRT.BUF, RD.BUF, FLG.REG 

Implicit Outputs: . _ . 

The flag register bits wilt be set if the write 
check transfers detects an UNC error. 

Completion codes: 
none 

Side Effects: 
none 


local 

BITS TSTED, 

OFFSET. 

RAND INDEX, „ , 

BAD BITS : bitvector [163, 
FAIC.CHIP; 


! Counts no. bits tested in read buffer 
{Random data offset 

{Starts sector transfer at random write buffer words 
{Loaded with failing read buffer word 
{Records the failing ml-11 data chip 


SEED1 = ZEROES; 
SEED2 = to'^'; 
SEED3 = %o*7622‘; 
OFFSET = ZEROES; 


! Ini t random data seedl 
!Init random data se*d2 
Unit random data seed3 

{Clear the random data offset for 1's and Os data 


incr PAT.SEL from 0 to ONE ♦ .RAND.PASS do 
begin 

RAND.INDEX = ZEROES; 

selectone .PAT..SEL of 
set 


{Loop thru all patterns 
{Reset random index to zero 
{Select a pattern 


£03 : 
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SEO 0227 



6i>XEL4 

! REV B PATCH 00 


5974 

5975 

5976 

5977 

5978 

5979 

5980 

5981 

5982 

5983 

5984 

5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

5994 

5995 

5996 

5997 

5998 

5999 

6000 
6001 
6002 

6003 

6004 

6005 

6006 

6007 

6008 

6009 

6010 
6011 
6012 

6013 

6014 

6015 

6016 

6017 

6018 

6019 

6020 
6021 
6022 

6023 

6024 

6025 


ROUTINE DECLARATIONS 

L.1-0.dat A (.TEMP.ARRS8NK.SEL, 


J 2 
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18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.BLI . 1 (49) 

ZEROES); .'Load zeroes data 


[13 


L.1.0.DATA (.TEMP.ARRS8NK.SEL, ONES); 


.'Load ones data 


[otherwise] : 

L BaNDOM DATA ( . TEMP.ARRSBNK.SEL ) ; 
OFFSET = 2; ! Enable 

end; 

tes; 


!Load random data 
the random data offset 


incr SEC.CNT from 0 to .8NK.NUM.SEC do !Urite check all sectors fn this bank 
begin 
BREAK * 

URT CHK TRANSFER (SIZE = -256, DST = (.TEMP.ARRSBNK.SEL ♦ .SEC.CNT), 
~SRC'= URT.BUF [.RAND. INDEX, URD3); 


if .ML ADDR [NLEE, crc3 
then 


begin 

FAIL 


else 


CHIP = .ML .ADDR [MLEE, CHAN3; 
L.CHlP.TBL (.FAlL.CHIP, .PAT.SEL); 
end 

begin 


!Uas there a crc bit error 

.'Read the failing crc bit nuiber 
! Store away the railing bit and pattern 


if .ML ADDR [MLEE, UNCJ !Was there a uncorrectable error 

then 

begin 

ELS REG [F.UNC.ERR.FL63 = SET.FLG; !Set the unc error flag for future ref 
end; 


end; 


if .ML ADDR [MLCS2, WCE3 
then 


begin 

CLR.MBUS; 

BITS TSTED = ZEROES; 

RD TRANSFER (SIZE = -256, DST = 


!Uas there a write check error 


! Clear the mass bus of the error 

! Clear the bits tested count 

RD.BUF . SRC = . T EMP.ARRSBNK.SE L ♦ .SEC.CNT); 


incr BUF INDEX from 0 to 255 do .'Find the failing read buffer word 

begin 

if .URT.BUF [(.RAND.INDEX ♦ .BUF. INDEX), URD3 neq .RD.BUF C.8UF.INDEX3 
then 

BaITbITS = .URT.BUF [(.RAND.INDEX ♦ .BUF. INDEX). URD3 xor .RD.BUF [.BUF .INDEX] 
incr BIT.INDEX from 0 to 15 do !Find the failing bit(s) 



BSKELA 

REV B PATCH 00 

6026 

6027 

6028 

6029 

6030 

6031 

6032 

6033 

6034 

6035 

6036 

6037 

6038 

6039 

6040 

6041 

6042 

6043 

6044 

6045 

6046 


X 2 

18-Mar-1982 16:07:57 TOPS-20 Btiss-16 V2(212) 

ROUTINE DECLARATIONS 18-Mar-1982 15:44:41 PA:<NEALE>PM$XL4.8LI.1 (49) 

if .SAD .81 TS C.8ITJNDEXJ eql ONE ! Is thfs a bad bit 
then 

FA?L%IP = (.8ITS.TSTED ♦ .BIT INDEX) mod 36; 

{Calculate the Tailing ml-11 blit 

L..CHIP..TBL (.FAIL.CHIP, ,PAT_SEL); {Store away the bit and pattern 
end; 

end; 

8ITS.TSTED = .8ITS.TSTED ♦ 16; {Add 16 bit to the bit tested count 
end; 

end; 

RAND.1NDEX = .RAND ..INDEX * .OFFSET; {Bump the random index if random data 
end; 

end; 

end; 
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SEQ 0229 


.S8TTL F8. DATA. CHIPS ROUTINE DECLARATIONS 


021074 

004167 

0000006 

F8.DATA, 

.CHIPS: 









JSR 

R1.SSAVE5 

• 

0 


5922 

021100 

162706 

000034 


SUB 

A3J.SP 




021104 

005067 

0000006 


CLR 

SEED1 

• 

0 


5961 

021110 

012767 

001233 0000006 


NOV 

#1233,SEED2 



5962 

021116 

012767 

007622 0000006 


NOV 

#7622.SEED3 

; 


5963 

021124 

005066 

000006 


CLR 

6 (SP) 

• 

0 

OFFSET 

5964 

021130 

016705 

040436' 


NOV 

RAND. PASS, R5 

■ 


5966 

021134 

010566 

000012 


MOV 

RS,12(SP> 




021140 

005266 

000012 


INC 

1 2<SP) 




021144 

005001 



CLR 

R1 

0 

PAT.SEL 


021146 

000167 

000732 


JNP 

16S 




021152 

005066 

000004 

IS: 

CLR 

4(SP) 

0 

RAND. INDEX 

5968 

021156 

005701 



TST 

R1 

• 

0 

PAT.SEL 

5970 

021160 

001004 



BNE 

2$ 




021162 

016646 

000052 


NOV 

52(SP),-(SP) 

• 

0 

TENP.ARRS8NX.SE.* 

5974 

021166 

005046 



CLR 

-(SP) 




021170 




8R 

3$ 




021172 

020127 

000001 

2S: 

CHP 

R1,#1 

• 

• 

PAT.SEL.* 

5970 

021176 

001010 



BNE 

4$ 




021200 

016646 

000052 


NOV 

52(SP) ,-(SP) 

• 

TENP.ARRS8NX.SE,* 

5977 

021204 

012746 

177777 


NOV 

*-1,-(SP) 




021210 

004767 

164214 

3$: 

JSR 

PC,L. 1.0. DATA 




021214 

005726 



TST 

(S h* 




021216 

000407 



BR 

5$ 

• 

0 


5970 

021220 

016646 

000052 

4$: 

MOV 

52(SP),-(SP) 

• 

0 

TENP.ARRS8NX.SE.* 

5981 

021224 

004767 

164070 


JSR 

PC. L. RANDOM. DATA 




021230 

012766 

000002 000010 


MOV 

#2,10(SP) 

• 

0 

*, OFFSET 

5982 


RSKPI L 
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DECLARATIONS 
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SEO 0230 

021236 

016766 

040416’ 

000016 5$: 

NOV 

BNK.NUN.SEC,16(SP) 

0 

5986 

021 244 

005066 

000002 


CLR 

2<SP) 

; SEC.CNT 


021230 

000167 

000610 


JNP 

14$ 



021254 

104422 


6$: 

TRAP 

22 

0 

5987 

021256 

012746 

177400 


NOV 

#-400, -<SP) 

0 

5989 

021262 

011667 

040426' 


NOV 

(SP) .SIZE 



021266 

016603 

000056 


NOV 

56(SP).R3 

; TENP.ARR$8NK.SE ,* 


021272 

066603 

000004 


ADD 

4(SP),R3 

; SEC.CNT,* 


021276 

010367 

040430' 


NOV 

R3.DST 



021302 

010346 



NOV 

R3,-(SP) 



021304 

016604 

000012 


NOV 

12(SP).R4 

; RAND. INDEX,* 

5990 

021310 

006304 



ASL 

R4 



021312 

062704 

002234' 


ADD 

#WRT.BUF ,R4 



021316 

010467 

040432* 


NOV 

R4.SRC 



021322 

010446 



NOV 

R4,-(SP) 

0 

5989 

021324 

004767 

161610 


JSR 

PC.WRT.CHK.TRANSFE 



021330 

016705 

040374' 


NOV 

NL.ADDR.R5 

0 

5992 

021334 

016566 

000042 

000042 

NOV 

42(R5),42(SP) 

; *,NL.REG 


021342 

032766 

020000 

000042 

BIT 

#20000.42 (SP) 

; *,NL.RE6 


021350 

001427 



8EQ 

7$ 



021352 

016705 

040374* 


NOV 

NL.ADDR.R5 

0 

5995 

021356 

016566 

000042 

000040 

NOV 

42(R5),40(SP) 

; *.NL.REG 


021364 

016605 

000040 


NOV 

40<SP) ,R5 

; NL.REG,* 


021370 

006205 



ASR 

R5 



021372 

006205 



ASR 

R5 



021374 

006205 



ASR 

R5 



021376 

006205 



ASR 

R5 



021400 

006205 



ASR 

R5 



021402 

006205 



ASR 

R5 



021404 

042705 

177700 


BIC 

#1 77700. R5 



021410 

010566 

000012 


NOV 

R5.12(SP) 

; *, FAIL. CHIP 


021414 

010546 



NOV 

R5,-<SP) 

; FAIL. CHIP.* 

5996 

021416 

010146 



NOV 

RI.-(SP) 

; PAT.SEL,* 


021420 

004767 

164120 


JSR 

PC.L.CHIP.TBL 



021424 

022626 



CNP 

(SP)*.(SP>* 

0 

5994 

021426 

000411 



BR 

8$ 

• 

0 

5992 

021430 

016705 

040374* 

7$: 

NOV 

NL.ADDR.R5 

• 

0 

6001 

021434 

016566 

000042 

000036 

NOV 

42(R5).36(SP) 

; *, NL.REG 


021442 

100003 



BPL 

8$ 



021444 

152767 

000002 

040422' 

BIS8 

#2, FIG. REG 

# 

6004 

0 AAA 

021452 

016705 

040374* 

8S: 

NOV 

Nl.ADDR.R5 

0 

6009 

021456 

016566 

000010 

000034 

NOV 

10(R5),34(SP) 

; *,NL.REG 


021464 

032766 

040000 

000034 

BIT 

#40000, 34 (SP) 

; *,NL.REG 


021472 

001565 



BEQ 

13$ 


0 A4 4 

021474 

016705 

040374* 


NOV 

NL.ADDR.R5 

0 

601 1 

021500 

016566 

000010 

000032 

NOV 

10(R5) ,32(SP) 

; *, NL.REG 


021506 

016604 

000032 


NOV 

32(SP).R4 

; NL.REG.NLREG 


021512 

152704 

womvM 


BIS6 

#40, R4 

; *,NLREG 


021516 

016705 

040374* 


NOV 

NL.ADDR.R5 



021522 

010465 

000010 


NOV 

R4.10(R5) 

; NLREG,* 


021526 

016705 

040374* 


NOV 

NL.ADDR.R5 



021532 

016566 

000010 

000030 

NOV 

10(R5) ,30(SP) 

; *, NL.REG 



BSKEL4 
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021 540 

016604 

000030 


MOV 

30(SP) ,R4 

; ML.RE6.MLRE6 

021544 

016705 

040400’ 


MOV 

ML.DUT.R5 


021550 

042705 

177770 


BIC 

#177770.R5 


021554 

142704 

000007 


81 CB 

A7.R4 

; *.MLREG 

021560 

050504 



BIS 

R5.R4 

; *.MLREG 

021562 

016705 

040374' 


MOV 

ML.ADDR.R5 


021566 

010465 

000010 


MOV 

R4,10(R5) 

; MLREG.* 

021572 

005066 

000020 


CLR 

20(SP) 

; 8ITS.TSTED 

021576 

012746 

177400 


MOV 

#-400, -(SP) 

• 

0 

021602 

011667 

040426’ 


MOV 

(SP),SIZE 


021606 

012746 

007230’ 


MOV 

#RD.BUF,-(SP) 


021612 

011667 

040430’ 


MOV 

(SP).DST 


021616 

010367 

040432* 


MOV 

R3.SRC 


021622 

010346 



MOV 

R3,-(SP) 


021624 

004767 

162540 


JSR 

PC, RD. TRANSFER 


021630 

005002 



CLR 

R 2 

; BUF. INDEX 

021632 

010204 


9$: 

MOV 

R2,R4 

; BUF. INDEX.* 

021634 

066604 

000022 


ADD 

22(SP),R4 

; RAND. INDEX,* 

021640 

006304 



ASL 

R4 


021642 

010205 



MOV 

R2,R5 

; BUF. INDEX,* 

021644 

006305 



ASL 

R5 


021646 

026465 

002234’ 007230* 


CMP 

URT.BUF (R4) ,RD.SUF(R5) 


021654 

001463 



BEQ 

12$ 


021656 

016403 

002234’ 


MOV 

URT.BUF (R4),R3 

0 

021662 

016546 

007230' 


MOV 

RD.BUF(R5), -(SP) 


021666 

040316 



BIC 

R3, (SP) 


021670 

046503 

007230’ 


BIC 

RD.BUF (R5) ,R3 


021674 

052603 



BIS 

(SP)*. R3 


021676 

010366 

000034 


MOV 

R3.34(SP) 

; *, BAD. BITS 

021702 

005005 



CLR 

R5 

; BIT. INDEX 

021704 

010504 


10$: 

MOV 

R5.R4 

; BIT. INDEX.* 

021706 

006204 



ASR 

R4 


021710 

006204 



ASR 

R4 


021712 

006204 



ASR 

R4 


021714 

012703 

000034 


MOV 

#34 ,R3 


021720 

060603 



ADD 

SP.R3 

; BAD. BITS,* 

021722 

060304 



ADD 

R3.R4 


021724 

010446 



MOV 

R4,-(SP) 


021726 

010546 



MOV 

R5.-(SP) 

; BIT. INDEX.* 

021730 

042716 

177770 


BIC 

#1^7770. (SP) 


021734 

012746 

000001 


MOV 

#1,-(SP) 


021740 

005046 



CLR 

-(SP) 


021742 

004767 

0000006 


JSR 

PC.8L$6T2 


021746 

062706 

000010 


ADD 

#10. SP 


021752 

005300 



DEC 

RO 


021754 

001017 



BNE 

11$ 


021756 

010546 



MOV 

R5,-(SP) 

; BIT. INDEX.* 

021760 

066616 

000030 


ADD 

30 (SP) , (SP) 

; BITS.TSTED.* 

021764 

012746 

000044 


MOV 

#44, -(SP) 


021770 

004767 

0000006 


JSR 

PC.BL$MOD 


021774 

010066 

000024 


MOV 

R0.24(SP) 

; *, FAIL. CHIP 

022000 

010016 



MOV 

RO,(SP) 

; FAIL. CHIP,* 
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6013 

6014 


6016 

6019 


6022 


6024 

6026 


6029 

6031 


J 


REV B PATCH 00 ROUTINE DECLARATIONS 


022002 
022004 
022010 
022014 
022016 
022022 
022024 
022032 
022034 
022040 
022042 
022046 
022054 
022060 
022064 
022072 
022074 
022100 
022102 
022104 
022110 
022112 
022116 
0221 22 


010146 

004767 

062706 

005205 

020527 

003730 

062766 

005202 

020227 

003674 

062706 

066666 

062706 

005266 

026666 

003002 

000167 

005726 

005201 

020166 

003002 

000167 

062706 

000207 


163534 

000006 

000017 

000020 000026 
000377 
000006 

000016 000014 
000006 
000002 

000002 000016 
177154 


000012 

177034 

000034 


; Routine Sire: 268 words 
; Maximum stack depth per invocation: 


11$: 

MOV 

JSR 

ADD 

INC 

12$: 

CMP 

BLE 

ADD 

13$: 

INC 

CMP 

BLE 

ADD 

ADD 

14$: 

ADD 

INC 

CMP 

15$: 

BGT 

JMP 

TST 

16$: 

INC 

CMP 

17$: 

BGT 

JMP 

ADD 


RTS 


31 words 


N 2 
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SEQ 0232 

R1, -(SP) 
PC.L.CHIP.TBL 

; PAT.SEL,* 

6028 

#6.SP 

0 

R5 

; BIT. INDEX 

6024 

R5.A17 

ioi 

#20,26(SP) 

; BIT. INDEX.* 


; *.BITS.TSTED 

6036 

R2 

; BUF. INDEX 

6016 

R2,#377 

9$ 

#6 .SP 

; BUF. INDEX,* 


• 

a 

6011 

16(SP),14(SP) 

; OFFSET, RAND. INDEX 

6041 

#6.SP 

0 

5987 

2(SP) 

; SEC.CNT 

5986 

2(SP),16(SP) 

15$ 

6$ 

; SEC.CNT,* 


(SPH 

# 

5967 

R1 

; PAT.SEL 

5966 

R1,12(SP) 

17i 

1$ 

#34. SP 

PC 

; PAT.SEL,* 


• 

a 

5922 


BbKtL4 

REV B PATCH 00 

6047 

6048 

6049 

6050 

6051 

6052 

6053 

6054 

6055 

6056 

6057 

6058 

6059 

6060 
6061 
6062 

6063 

6064 

6065 

6066 

6067 

6068 

6069 

6070 

6071 

6072 

6073 

6074 

6075 

6076 

6077 

6078 

6079 

6080 
6081 
6082 

6083 

6084 

6085 

6086 

6087 

6088 

6089 

6090 

6091 

6092 

6093 

6094 

6095 

6096 

6097 

6098 


B 3 
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routine FB.CRC.CHIPS <TEAP_ARRS8NK_SEL) : novalue = 
begin 


TOPS-20 Bliss-16 V21212) 
PA:<NEALE>P«SKL4.BLI.1 (50) 


Functional Description: . , . , , ..... 

This global routine finds all the additional failing 
crc chips for a selected bank and is only called if 
a unc error occured during the find bad data chip 
global routine. 

If a bad crc chip is found then it is stored 
into the bad chip table along with its failing 
data pattern. 

Formal Parameters: 

ARRS8NK SEL: 

'Stores array and bank select address. 

Implicit Inputs: 

RET.STATUS 

Implicit Outputs: 
none 

Completion codes: 
none 

Side Effects: 
none 


local 

RAND INDEX. 

OFFSET, 

PD SAVE : bitvector [163; 


! Starts sector transfers at random write buffer words 

! Random data offset 

!Save location for nibble prom data 


OFFSET = ZERO; 
SEED1 = ZERO; 
SEED2 = Xo'1233’; 
SEED3 = Xo'7622'; 


! Clear the random data offset for 1's and 0's data 
!Init the random data seedl 

Unit the random data seed2 

Unit the random data seed3 


incr CRC.SEL from CRC.P to CRC.B do ’Find bad crc bits p, a. b 

begin 

if not .CHIP.T8L C.CRC.SEL. FAULT3 !Did this crc bit fail during ' fb.data.chips’ 
then 

begin 


incr PAT.SEt from 0 to ONE ♦ .RAND.PASS do !loop thru all patterns 
RA^DJNDEX = ZERO; .'Reset the random index 
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6099 

6100 
6101 
6102 

6103 

6104 

6105 

6106 
610 7 
6108 

6109 

6110 
6111 
6112 

6113 

6114 

6115 

6116 

6117 

6118 

6119 

6120 
6121 
6122 

6123 

6124 

6125 

6126 

6127 

6128 

6129 

6130 

6131 

6132 

6133 

6134 

6135 

6136 

6137 

6138 

6139 

6140 

6141 

6142 

6143 

6144 

6145 

6146 

6147 

6148 

6149 

6150 


C 3 
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selectors .PAT.SEl of ! Select a pattern 

set 

[03 : 

DHJ.OJ.OAD (.TEHP.ARRSBNK.SEL, ZEROES); fLoad zeroes data 

[13 : 

DHJ.OJ.OAD (.TEHP_ARR*BNK_SEL. ONES); .'Load ones data 

[otherwise3 : 
begin 

DM RAND LOAD (.TEMP ARRSBNK SEL); .'Load random data 

OFFSET = 2; lEnable the random data offset 

end; 

tes; 

DH.RD.TRANSFER (SIZE = -256. DST = RD.8UF. SRC = .TEHP.AARSBNK.SEL); 

case .CRC.SEL from CRC.P to CRC.B of ! Select the falling crc bit 
set 


[363 : 
begin 


!Test crc bit p 


incr SEC_CNT from 0 to .BNK NUHSEC do 



!Read thru all sectors 


incr WRD.CNT from 0 to 127 do .'Read thru all words in sector 

begin 

PD SAVE = .HL.ADDR [HLPD. PD .RE 63; 

!Read out the prom data for this word 
DAT.CLK; ! Clock the data into the di«i reg's 

if not .PD.SAVE [CRC.NI8BLE3 'Is this a good nibble 
then 

begin 

if .HL.ADDR CHLE2, B.363 neq .URT.BUF [(.RAND INDEX ♦ .URD CNT), BITJ23 
then 

l!?HIP.TBL (.CRC.SEL. .PAT.SEL); 

!Save the failing chip and pattern 

end; 


end; 


end; 

RAND.INDEX = .RAND INDEX ♦ .OFFSET; !Bu«> the random index 
end; 


BSKEL4 

REV e PATCH 00 ROUTINE DECLARATIONS 


6151 

6152 

6153 

6154 

6155 

6156 

6157 

6158 

6159 

6160 
6161 
6162 

6163 

6164 

6165 

6166 

6167 

6168 

6169 

6170 

6171 

6172 

6173 

6174 

6175 

6176 

6177 

6178 

6179 

6180 
6181 
6182 

6183 

6184 

6185 

6186 

6187 

6188 

6189 

6190 

6191 

6192 

6193 

6194 

6195 

6196 

6197 

6198 

6199 

6200 
6201 
6202 
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end; 

[373 : ITest crc bit a 

begin 

incr SEC CNT from 0 to .BNK.NUN.SEC do ‘Read thru all sectors 
begin 
BREAK; 

incr WRD CNT from 0 to 127 do .'Read thru all words in this sector 

begin 

PD SAVE * .NL ADDR [NlPD. PD.REG3; .'Get this words prom data 
DAT.CLK; ! Clock out data into the diag reg's 

if not .PD.SAVE [CRC.NIBBLE3 .'Is this a good nibble 
then 

begin 

if .NL.ADDR CPHE2. B.373 neq .WRT.BUF [(.RAND.INDEX ♦ .WRD.CNT), BIT.133 
then 

L*?HIP „TBL (.CRC.SEL, .PAT.SEL); 

!Save the bad chip and pattern 

end; 

end; 

end; 

RAND.INDEX = .RAND. INDEX ♦ .OFFSET; !Bump the random index 
end;” 

end; 

[383 : .‘Test crc bit b 

begin 

incr SEC.CNT from 0 to .BNK.NUH.SEC do JRead all sectors 
begin 
BREAK; 

incr WRD.CNT from 0 to 127 do .'Read all words in this sector 

begin 

PD SAVE = .ML ADDR CNLPD. PD.REG3; .'Get the prom data for 
DAT.CLK; ! Clock out data into diag reg's 

if not .PD.SAVE [CRC.NIBBLE3 ! Is this a good nibble 
then 

begin 

if .J1L ADDR CRLE2. B.383 neq .WRT.BUF [(.RAND. INDEX ♦ .WRD.CNT) , BIT.143 
then 
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begin 

L CHIP.TBL (.CRC.SEL, .PAT.SEL); 

!Seve the bed chip end pettern 

end; 


.RAND.1NDEX ♦ .OFFSET; !Buep the rendon index 


iCleer the single step d»e node 


F8.CRC. CHIPS ROUTINE 

DECLARATIONS 


R1 .SSAVE5 
#42.SP 


6047 

2(SP) 

; OFFSET 

6083 

SEE01 

# 

6084 

#1233.SEED2 

0 

6085 

#7622. SEED3 

• 

# 

6086 

#44, r! 

; *. CRC.SEL 

6038 

R1.R5 

R5 

CHIP.T8L(R5> 

2$ 

27 S 

; CRC.SEL,* 

6091 

RAND. PASS, R5 
R5.10(SP) 

10(SP) 

# 

6095 

R2 

26 $ 

( SP ) 

; PAT.SEL 


; RAND. INDEX 

6097 

R2 

4S 

60(SP).-(SP> 

-(SP) 

5S 

R2,#1 

6S 

; PAT.SEL 

6099 

; TENP.ARRS8NK.SE,* 

6103 

; PAT.SEL.* 

6099 



8SH£l<. 

PEV 8 PATCH 00 


022250 016646 000060 
022254 012746 177777 
022260 004767 160304 
022264 005726 
022266 000407 
022270 016646 000060 
022274 004767 157674 
022300 012766 000002 
022306 012716 177400 
022312 011667 040426* 
022316 012746 007230* 
022322 011667 040430* 
022326 016646 000064 
022332 011667 040432* 
022336 004767 157022 
022342 010105 
022344 162705 000044 

022350 006305 
022352 066507 022356* 
022356 000006 
022360 000224 
022362 000442 
022364 016766 040416* 
022372 005066 000012 
022376 000474 
022400 104422 
022402 005003 
022404 016705 040374* 
022410 016566 000046 
022416 016666 000046 
022424 016705 040374* 
022430 016566 000024 
022436 016604 000044 
022442 152704 000020 
022446 016705 040374* 
022452 010465 000024 
022456 132766 000002 
022464 001030 
022466 016705 040374* 
022472 016566 000034 
022500 010305 
022502 066605 000006 
022506 006305 
022510 016500 002234* 
022514 042700 167777 
022520 016604 000040 
022524 042704 167777 

022530 020400 
022532 001405 
022534 010146 
022536 010246 
022540 004767 163000 


ROUTINE DECLARATIONS 

000060 

177777 

160304 


000060 

157674 

000002 000004 

177400 

040426* 

007230* 

040430* 

000064 

040432* 

157022 

000044 

022356* 


040416’ 000014 
000012 


040374* 

000046 000046 
000046 000042 
040374* 

000024 000044 

000044 

000020 

040374* 

000024 

000002 000043 
040374* 

000034 000040 

000006 

002234* 

167777 

000040 

167777 


NOV 

NOV 

JSR 

TST 

BR 

NOV 

JSR 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

JSR 

NOV 

SUB 

ASL 

ADD 

.WORD 

.WORD 

.WORD 

NOV 

CLR 

BR 

TRAP 

CLR 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

BIS6 

NOV 

NOV 

BITS 

BNE 

NOV 

NOV 

NOV 

ADD 

ASL 

NOV 

B1C 

NOV 

BIC 

CNP 

BEQ 

NOV 

NOV 

JSR 


F 3 

18-Nar-1982 

18-Nar-198< 

60(SP) ,-(SP) 

#-1 ,-(SP) 

PC. DN. 1.0. LOAD 
(SP) + 

7$ 

60(SP),-(SP> 

PC. DN. RAND. LOAD 
#2.4(SP) 

#-400. (SP) 

(SP).SIZE 

#RD.BUF,-(SP) 

(SP) ,DST 

64<$P),-(SP> 

(SP).SRC 

PC. DN.RD. TRANSFER 

R1.R5 

#44, R5 

R5 

88(R5),PC 

9S-8J 

148-8$ 

208-88 

8NK. NUN. SEC.1 4 (SP) 
12(SP) 

13$ 

B 

Nt.ADDR.R5 

46(R5).46(SP> 

46(SP),42(SP) 

NL.ADDR.R5 

24(R5).44(SP) 

44(SP) ,R4 

#20, R4 

NL.ADDR.R5 

R4,24(R5) 

#2,43(SP) 

12i 

Nl.ADDR.R5 

34(R5),40(SP) 

R3.R5 

6(SP).R5 

R5 

MRT.9W(R5).R0 

#167777,R0 

40(SP).R4 

#16777>,R4 

R4.R0 

12 * 

R1. -(SP) 

R2.-(SP) 

PC.L.CNIP.TBL 


i 
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SEQ 0237 

; TENP.ARR88NK.SE.* 

6106 

; TENP.ARR88NK.SE,* 

6099 

6110 

; *. OFFSET 

6111 

6115 

; TENP.ARRSBNK.SE,* 


; CRC.SEL ,* 

6117 

; SEC.CNT 

6123 

; WRD.CNT 

; *,NL.REG 
; NL. REG. PD. SAVE 

6124 

6127 

6129 

; *.NL.REG 
; NL.REG.NLREG 
; *,NLREG 


; NLREG.* 

; *.PD.SAVE*1 

6133 

; *.NL.REG 
; WRD.CNT.* 

; RAND. INDEX.* 

6137 

; NL.REG.* 


; CRC.SEL,* 

; PAT.SEL,* 

6140 


j 



8>KEL4 






REV 8 PATCH 00 
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022544 

022626 



12$: 

CHP 

022546 

005203 



INC 

022550 

020327 

000177 



CHP 

022554 

003713 




BLE 

022556 

022564 

066666 

005266 

000010 

000012 

000006 

13$: 

ADD 

INC 

022570 

026666 

000012 

000014 

CHP 

022576 

003700 




BLE 

022600 

000506 



14$: 

BR 

022602 

016766 

040416* 

000014 

HOV 

022610 

005066 

000012 



CLR 

022614 

000474 



15$: 

BR 

022616 

104422 



TRAP 

022620 

005003 




CLR 

022622 

016705 

040374* 


16$: 

HOV 

022626 

016566 

000046 

000036 


HOV 

022634 

016666 

000036 

000042 


HOV 

022642 

016705 

040374* 



HOV 

022646 

016566 

000024 

000034 


HOV 

022654 

016604 

000034 



HOV 

022660 

152704 

000020 



BIS6 

022664 

016705 

040374* 



HOV 

022670 

010465 

000024 



HOV 

022674 

132766 

000002 

000043 


BITS 

022702 

001030 




BNE 

022704 

016705 

040374' 

000032 


HOV 

022710 

016566 

000034 


HOV 

022716 

010305 




HOV 

022720 

066605 

000006 



ADD 

022724 

006305 




ASL 

022726 

016500 

002234* 



HOV 

022732 

042700 

15777? 



BJC 

022736 

016604 

000032 



HOV 

022742 

042704 

157777 



BJC 

022746 

020400 




CHP 

022750 

001405 




BED 

022752 

010146 




HOV 

022754 

010246 




HOV 

022756 

004767 

162562 



JSR 

022762 

022626 



17$: 

CHP 

022764 

005203 



INC 

022766 

020327 

000177 



CHP 

022772 

003713 




BLE 

022774 

066666 

000010 

000006 


ADD 

023002 

005266 

000012 



INC 

023006 

026666 

003700 

000012 

000014 

18$: 

CHP 

023014 



19$: 

BLE 

023016 

000506 



BR 

023020 

016766 

040416* 

000014 

20$: 

HOV 

023026 

005066 

000012 



CLR 

023032 

000474 



21$: 

BR 

023034 

104422 



TRAP 


6 3 

1 8-Ha r- 1982 
1 8-Ha r- 1982 

<SP>*. <SP)* 

R3 

R3.A177 

IIS 

10(SP).6(SP) 

12(SP) 

12<SP).14(SP) 

10 $ 

19 $ 

BNK.NUH.SEC.14(SP> 

12(SP) 

18$ 

B 

HL.ADOR.R5 

46(R5),36(SP) 

36(SP).42(SP> 

HL.ADDR.R5 

24(R5),34(SP> 

34 (SP) ,R4 
#20. R4 
HL.ADDR.R5 
R4,24(R5) 

#^43 (SP) 

Hl.ADDR.R5 

34<R5).32<SP> 

R3.R5 

6(SP).R5 

R5 

URT.BUF (R5).R0 

#1 57777.R0 

32(SP).R4 

#1 57777. R4 

R4.R0 

17i 

R1,-(SP) 

R2.-(SP) 

PC.L.CHIP.TBL 

(|P)*.<SP)* 

R3.#177 

16* 

10(SP),6(SP) 

12(SP) 

12<SP),14(SP> 

15$ 

25$ 

BNK.NUH.SEC,14(SP) 

12CSP) 

24$ 

22 
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PA:<NEALE>PHSKL4.8LI.1 (50) 

SEQ 0238 


6139 

; WRD.CNT 

6127 

; WRD.CNT,* 


; OFFSET.RAND. INDEX 

6148 

; SEC.CNT 

6123 

; SEC.CNT,* 



6117 


6156 

; SEC.CNT 



6157 

; URD.CNT 

6160 


6162 

; *,Hl.REG 


; HL. REG, PD. SAVE 


; *,HL.REG 


; HL.REG.HLREG 


; *,HLREG 


; HLREG,* 


; *,PD.SAVE*1 

6165 


6169 

; *,HL.RE6 


; WRD.CNT,* 


; RAND. INDEX,* 


; HL.REG.* 


; CRC.SEL.* 

6172 

; PAT.SEL.* 


• 

6171 

; URD.CNT 

6160 

; URD.CNT.* 


; OFFSET.RAND. INDEX 

6180 

; SEC.CNT 

6156 

; SEC.CNT,* 


• 

8117 

• 

6188 

; SEC.CNT 


0 

6189 
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H 3 

18-Mar-1982 

16:07:57 

TOPS-20 BUss-16 Vt (212) 

Page 20A 

REV B PATCH 00 

ROUTINE 
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IB-Mar-1982 

15:44:41 

PA:<NEALE>PMSKL4.BLI.1 (50) 

SEQ 0239 

023036 

005003 




CLR 

R3 


; WRD.CNT 

6192 

023040 

016705 

040374* 


22$: 

MOV 

ML.ADDR.R5 

46(R5) ,30(SP) 



6194 

023044 

016566 

000046 

000030 


MOV 


; *,ML.REG 


023052 

016666 

000030 

000042 


MOV 

30(SP) ,42(SP) 

ML.ADDR.R5 

24<R5).26(SP) 


; ML. REG. PD. SAVE 


023060 

016705 

040374* 



MOV 




023064 

016566 

000024 

000026 


MOV 


; *,ML.REG 


023072 

016604 

000026 


MOV 

26 (SP) ,R4 


; ML.REG.MLREG 


023076 

152704 

000020 



BIS8 

#20. R4 


; *,MLREG 


023102 

016705 

040374* 



MOV 

ML.ADDR.R5 

R4.24 (R5) 




023106 

010465 

000024 



MOV 


; MLREG,* 

6197 

023112 

132766 

000002 

000043 


BITB 

#^43<SP) 


; *,PD.SAVE*1 

023120 

001030 




8NE 



6201 

023122 

016705 

040374* 



MOV 

HL.ADDR.R5 

34(R5),24(SP) 



023126 

016566 

000034 

000024 


MOV 


; *,ML.REG 
; WRD.CNT,* 


023134 

010305 




MOV 

R3.R5 



023136 

066605 

000006 



ADD 

6(SP).R5 


; RAND. INDEX,* 


023142 

006305 




ASL 

R5 




023144 

016500 

002234* 



MOV 

WRT.8yF(R5).R0 
#137777, RO 




023150 

042700 

137777 



BIC 




023154 

016604 

000024 



MOV 

24 (SP). R4 
#13777f,R4 


; ML. REG,* 


023160 

042704 

137777 



81 C 




023164 

020400 




CMP 

R4.R0 

23$ 




023166 

001405 




8E0 



6204 

023170 

010146 




MOV 

RI.-(SP) 


; CRC.SEL.* 

023172 

010246 




MOV 

R2.-(SP) 


; PAT.SEL,* 


023174 

00-'. 767 

162344 



JSR 

PC.l.CHIP.TBL 



6203 

023200 

022626 




CMP 

(SP)*, (SP>* 


0 

023202 

005203 



23$: 

INC 

R3 


; WRD.CNT 

6192 

023204 

020327 

000177 



CMP 

R3,#1 77 

22$ 


; WRD.CNT,* 


023210 

003713 




BLE 



6212 

023212 

066666 

000010 

000006 


ADD 

10(SP),6(SP) 


; OFFSET, RAND. INDEX 

023220 

005266 

000012 



INC 

12(SP> 


; SEC.CNT 

6188 

023224 

026666 

000012 

000014 

24$: 

CMP 

12(SP),14(SP) 


; SEC.CNT,* 


023232 

003700 



25$: 

BLE 

21$ 



6096 

023234 

062706 

000006 


ADD 

#6 .SP 


• 

• 

023240 

005202 




INC 

R2 


; PAT.SEL 

6095 

023242 

020266 

000010 


26$: 

CMP 

R2.10(SP> 

27$ 


; PAT.SEL,* 


023246 

003002 




BGT 




023250 

000167 

176750 



JMP 

3$ 



6088 

023254 

005201 



27$: 

INC 

R1 


; CRC.SEL 

023256 

020127 

000046 



CMP 

R1 .#46 


; CRC.SEL,* 


023262 

003002 




BGT 

28$ 




023264 

000167 

176674 



JMP 

1$ 



6222 

023270 

016705 

040374* 


28$: 

MOV 

ML.ADDR.R5 

10(R5) ,i4(SP) 


0 

023274 

016566 

000010 

000014 


MOV 


; *,ML.REG 


023302 

016604 

000014 



MOV 

1 4 < SP> ,R4 


; ML.REG.MLREG 


023306 

152704 

000040 



81S8 

#40, R4 


; *,MLREG 


023312 

016705 

040374' 



MOV 

ML.ADDR.R5 


; MLREG,* 


023316 

010465 

000010 



MOV 

R4.10CR5) 



023322 

016705 

040374* 



MOV 

ML.ADDR.R5 


; *.HL.REG 


023326 

023334 

016566 

000010 

000012 


MOV 

10(R5),12(SP> 



016604 

000012 


MOV 

12(SP),R4 


; ML.REG.MLREG 
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023340 

023344 

023350 

023354 

023356 

023362 

023366 

023372 


016705 

042705 

142704 

050504 

016705 

010465 

062706 

000207 


040400' 

177770 

000007 

040374' 

000010 

000042 


18-Aer-1982 16:07:57 
18-Nar-1982 15:44:41 


#7.R4 

R5.R4 

nL.ADDR.R5 
R4.10CR5) 
#42. SP 
PC 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PNSKL4.BLI.1 (50) 


; *.NLRE6 
; *,nLRE6 


Page 205 
SEO 0240 


; NLREG,* 


; Routine Size: 340 words 

; NexiMun stack depth per invocation: 28 words 


bb*EL4 

REV B PATCH 00 


6226 

6227 

6228 

6229 

6230 

6231 

6232 

6233 

6234 

6235 

6236 

623 7 

6238 

6239 

6240 

6241 

6242 

6243 

6244 

6245 

6246 

6247 

6248 

6249 

6250 

6251 

6252 

6253 

6254 

6255 

6256 

6257 

6258 

6259 

6260 
6261 
6262 
6263 


J 3 

18-Nar-1982 16:07:57 T0PS-20 Bliss-16 V2<212> 

ROUTINE DECLARATIONS 18-Rar-1982 15:44:41 PA:<NEALE>PNSKL4,BLI . 1 (51) 

routine FB CHIPS (TENP.ARRSBNK.SEL) : novalue = 
begin 


♦♦ 


Functional Description: L t ^ _ . . , 

This global routine calls the 'find bad data chip* and 
'find bad crc chip' global routines which will search 
this tested bank and find and log all failing chips. 


If the fb data chip global routine detectes a unc 
error then the* fb_crc_chip global routine is not 
called. 

Formal Parameters: 

ARRS8NK SEL: 

“Stores the array and bank select address. 

Implicit Inputs: 

FLG.REG 


Implicit Outputs: 
none 


Completion codes: 
none 

Side Effects: 
none 


FLG REG CF UNC ERR FLGJ = CLR FLG; ! Clear the uncorrectable error flag 

I CRIP TBL**<);" * Unit the bad chip table 

FS DAT* CHIPS <.T ENP ARRS8NK SEL); IFind all the bad data chips 0-35 in this bank 


if .FLG.REG CF.UNC.ERR.FLG3 then F8.CRC.CHIPS < .TENP.ARRSBNK.SEL) ; 


end; 


!F1nd all the bad crc chips in this bank 


023374 142767 000002 040422' 

023402 004767 161472 
023406 016646 000002 
023412 004767 175456 
023416 032767 000002 040422* 
023424 001405 
023426 016646 000004 
023432 004767 176466 
023436 005726 
023440 005726 


.S8TTL FB. CHIPS ROUTINE DECLARATIONS 
FB. CHIPS: 


81 C8 

#2. FLG. REG 

• 

• 

JSR 

PC.I .CHIP.T8L 

• 

NOV 

2(SP) .-<SP> 

• 

• 

JSR 

PC.F8. DATA. CHIPS 


BIT 

#2. FLG. REG 

• 

• 

BEQ 

IS 


NOV 

4(SP).-(SP) 

• 

• 

JSR 

PC. FB. CRC. CHIPS 


TST 

(SP)* 


TST 

(SP)+ 

0 


TENP.ARRSBNK.SE.* 

tenp.arrsbnk.se.* 


Page 206 
SEQ 0241 


6256 

6257 

6258 

6260 


6227 
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Page 207 
SEO 0242 

023442 000207 

RTS 

PC 



0 

6226 


; Routine Size: 20 words 

; Maximum stack depth per invocation: 2 words 


B5ktL4 

REV B PATCH 00 

6264 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 
6281 
6282 

6283 

6284 

6285 

6286 

6287 

6288 

6289 

6290 

6291 

6292 

6293 

6294 

6295 

6296 

6297 

6298 

6299 

6300 

6301 

6302 

6303 

6304 

6305 

6306 

6307 

6308 

6309 

6310 

6311 

6312 

6313 

6314 

6315 


18-Har-1982 16:07:57 T0PS-20 Bliss-16 V2C212) 

ROUTINE DECLARATIONS 18-Har-1982 15:44:41 PA:<NEALE>PHSKL4.BLI . 1 (52) 

routine PH THIS.8ANK (TEWP.ARRSBNK.SEL) : novalue = 
begin 


Functional Description: 

This global routine loops on routines that will 
find newly failing chips, load the error map. 
interigate the error nap and load the blast table 
with all the newly failing rows and columns 
addresses within this bank. 

Formal Parameters: 

ARRS8NK SEL : 

'Stores the array and bank select address. 

Implicit Inputs: 

CHIP.TBL. FLG.REG 

Implicit Outputs: . , 

As eacn failing chip gets PH ed the fault bit 
in the flag register gets cleared. 

Completion codes: 
none 

Side Effects: 
none 


local 


BAD.CHIP 

LSTlPAT; 




BAD.CHIP = S.CHIP.TBL (ZERO); 

if .BAD.CHIP geq ZERO 
then 

FL?]rEG CF.ALL.BAD.CHIPJ = CLR.FLG; 


! Points to bad chips to be tested 
Hast pattern test for this failing chip 

JFind a bad chip to test 

.'Are there any chips to test 

! Clear the all bad flag 


do 


begin 

SEED1 * ZERO; Unit 

SEED2 = Xo'1$33'; Unit 

SEED3 = Xo’7622'; Unit 

F LG REG CF.ERR.AAP.ENTERED3 = CLR.FLG; 
BREAK ; , . , 

I ERROR WAP (); Unit 

LST PAT - ZERO; !Last 


the random data seedl 
the random data seed2 
the ranomd data seed3 
! Clear the entered error map flag 

the error map 
pattern starts at zero 


do 


.'Test all failing patterns for this bad chip 


Page 208 
SEQ 0243 


begin 



BSKEL4 

REV B PATCH 00 

: 6316 

6317 

; 6318 

; 6319 

; 6320 

; 6321 

6322 

; 6323 

6324 

; 6325 

; 6326 

; 6327 

; 6328 

6329 
P 6330 
; 6331 

; 6332 

; 6333 

; 6334 

; 6335 

; 6336 

6337 

6338 

6339 

; 6340 

; 6341 


ROUTINE DECLARATIONS 


H 3 

18-Har-1982 16:07:57 
1 8-Ha r-1 982 15:44:41 


T0PS-20 Bliss-16 V2C212) 

PA : <NEALE>PHSKL4 . 8L 1 . 1 (52) 


LST PAT = L FAILING CHIP ( . TEHP.ARRSBNK SEL. .BAD.CHIP. .LST.PAT); 

L ERROR HAP' (.TEHP_*RRSBNK.SEL, .BAD CHIP); . t , ... 

* !Loa3 the error map with failing rows and columns 

until^CHIP.TBL C. BAD.CHIP, PATSJ eql ZEROES; .'Repeat until all patterns are tested 

If .FLG.REG CF.ERR.HAP.ENTEREDJ !Were any failing rows/cols detected 
then ” 

IN 9 ERR0R.HAP (.TEHP.ARRSBNK.SEL, .BAD.CHIP); llnterlgate the error map 
en3 

else 

begin 

ERRSF (ERR 4. UNC CHIP HSG. 0); ! Report the unconfirmed error 
PRINTS (A 8 C PRINT. .TEHP_ARRiBNK_SEL<.ARR_SEL POS. ARRSSEL SIZE>. 

.TEHP~aRrSBNK.SEL<.BNK_SEL_POS, BNK$SEL_SIZE>, .BAD.CHIPT; ! Report where 

end; 


CHIP TBL C.BAD CHIP. FAULT3 = CLR.FLG; JClear this chips fault flag 
BAD.tHIP = S.CPlP.TBL (.BAD.CHIP); JFlnd the next falling chip 

unt i * n f .BAD.CHIP Iss ZERO) or (.FLG.REG C F _AB0R T.ARRA V3 ) ; .'Repeat untl 


Page 209 
SEQ 0244 


.'Repeat until all bad chips tested 


023444 004167 OOOOOOG 


023450 

023452 

023456 

023460 

023462 

023470 

023474 

023502 

023510 

023516 

023520 

023524 


023532 

023536 

023540 

023542 

023544 

023550 

023552 


005046 

004767 

010003 

002544 

142767 

005067 

012767 

012767 

142767 

104422 

004767 

005004 

010301 

006301 

016602 

010246 

010346 

010446 

004767 

010004 

010216 


170632 


000020 040422 ' 
OOOOOOG 

001233 OOOOOOG 
007622 OOOOOOG 
000004 040422' 

161530 


000016 


162220 


.SBTTL 

PH.THIS.8ANK: 

JSR 

CLR 

JSR 

NOV 

8LT 

BIC8 

1$: CLR 

HOV 
HOV 
BICB 
TRAP 
JSR 
CLR 
HOV 
ASL 
HOV 

2$: NOV 

HOV 
HOV 
JSR 
HOV 
HOV 


PH. THIS. BANK ROUTINE DECLARATIONS 


R1.SSAVE4 

-(SP> 

PC.S.CHIP.TBL 

R0.R3 

5$ 

#20. FLG.REG 
SEED1 

#1233.SEED2 
#7622, SEED3 
#4, FLG.REG 
22 

PC, I. ERROR. HAP 
R4 

R3,R1 

R1 

16(SP) ,R2 
R2,-(SP) 

R3,-(SP) 

R4,-(SP) 

PC, L. FAILING. CHIP 

R0,R4 

R2,(SP) 


; *,BAD.CHIP 


6299 

6302 

6306 

6307 

6308 

6309 


; LST. PAT 
; BAD. CHIP, • 

; TEHP.ARRSBNK.SE,* 

; BAD.CHIP,* 

; LST. PAT,* 

; *, LST. PAT 


BSKEL4 

REV B PATCH 00 ROUTINE DECLARATIONS 


023554 

023556 

023562 

023566 

023574 

023576 

023604 

023606 

023610 

023612 

023616 

023620 

023622 

023624 

023626 

023630 

023632 

023636 

023640 

023644 

023650 

023652 

023656 

023660 

023664 

023670 

023672 

023676 

023702 

023704 

023710 

023712 

023716 

023722 

023726 

023730 

023732 

023736 

023744 

023746 

023752 

023754 

023756 

023762 

023770 

023772 

023774 


010346 

004767 

062706 

032761 

001360 

032767 

001405 

010246 

010346 

004767 

000447 

104454 

000004 

001454* 

000000 

010346 

012746 

060616 

016746 

012746 

005046 

004767 

022626 

010066 

012716 

060616 

016746 

012746 

005046 

004767 

022626 

010066 

012716 

012746 

010600 

104414 

062706 

042761 

010316 

004767 

010003 

m 

002404 

032767 

001637 

005726 

000207 


163042 

000010 

077777 030230* 
000004 040422* 


174546 


000022 

040414' 

000002 

OOOOOOG 

000002 

000024 

040412* 

000004 

OOOOOOG 

000002 

003052' 

000004 


000006 

100000 030230* 
170336 


000100 040422' 


NOV 

JSR 

ADD 

BIT 

BNE 

BIT 

BEQ 

NOV 

SOV 

JSR 

BR 

TRAP 

.WORD 

.WORD 

.WORD 

NOV 

NOV 

ADD 

NOV 

NOV 

CLR 

JSR 

CMP 

NOV 

NOV 

ADD 

NOV 

MOV 

CLR 

JSR 

CMP 

NOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BIC 

MOV 

JSR 

MOV 

CMP 

TST 

BLT 

BIT 

BEQ 

TST 

RTS 


; Routine Size: 109 words 
; Maximua stack depth per invocation: 


12 words 



BSICEL4 

REV B PATCH 00 
6342 

; 6343 

; 6344 

6345 

; 6346 

; 6347 

6348 

; 6349 

; 6350 

6351 

6352 

; 6353 

6354 

6355 

6356 

6357 

6358 

6359 

; 6360 

; 6361 

6362 

6363 

6364 

; 6365 

6366 

6367 

; 6368 

6369 

6370 

6371 

6372 

; 6373 

6374 

6375 

6376 

6377 

6378 

6379 

6380 

; 6381 

6382 

; 6383 

6384 

; 6385 

6386 

6387 

6388 

6389 

6390 

6391 

6392 

6393 


ROUTINE DECLARATIONS 

routine CAL CHk SUM : novalue = 
begin 


B 4 

18-Har-1982 16:07:57 
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SEQ 0246 


Functional Description: 

This global routine will calculate the new 
check sums values for the prom data to 
be blasted into the selected arrays 
proms. 

Formal Parameters: 
none 

Implicit Inputs: 

BAD.BNk.REG, BLAST.TBL. ERROR.HAP 
Implicit Outputs: 

The error map and blast table is loaded with the new 
checksui values for the newly discovered failing row 
and column addresses. 

Completion codes: 
none 

Side Effects: 
none 


local 

PD SAVE : bitvector Cl 63. 
PD 0 9 CNT. 

CH* SUA CNT. 

REMAINDER; 


! Stores the prom data to be calculated 
! Counts number of bits 0-9 set 
! Counts the old check sum value 

! Stores the number of count to update the check sums with 


label 

A; 


! Leave loop label 


ERROR.HAP : blockvector C4, 5123 volatile; 


!Hake the error map look like the blast table 


incr BNk.SEL from 0 to 3 do 
begin 

if .BAD.8Nk.REG C.BNR.SEL3 
then 

begin 


ILook at all the banks 


! Is this a bad bank 


incr PD WRD SEL from 0 to .HAX CHIP.C0L*2 - 1 do .'Look at all the rows and columnsns 
begin 

if .BLAST.T8L C.8NK SEL. .PD.WRD.SEL. FULL.MRD3 neq 2ER0 
then 


! Is this location enpty 



8SKELA 

REV B PAKH 00 

6394 

6395 

6396 

6397 

6398 

6399 

6400 

6401 

6402 

6403 

6404 

6405 

6406 

6407 

6408 

6409 

6410 

6411 

6412 

6413 

6414 

6415 

6416 

6417 

6418 

6419 

6420 

6421 

6422 

6423 

6424 

6425 

6426 

6427 

6428 

6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 

6438 

6439 

6440 

6441 

6442 

6443 

6444 

6445 


ROUTINE DECLARATIONS 

A : 


C 4 

18-Nar-1982 
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SEO 0247 


begin 

PD 0 9 CNT = ZERO; ! Clear the count 

CHf? SUM CNT = ZERO; ! Clear the count 

PD_5AVE‘= .BLAST.TBL C.BNK.SEL. .PD.URD.SEL, FULL.URD3; .'Get this prom dtat word 

incr CNT from 0 to 9 do ! Count the # of bits set in 0 - 9 

if .PD.SAVE C.CNTJ then PD.0_9.CNT = .PD.0.9.CNT ♦ 1; 

CHK SUN CNT = .PD SAVE<10, 3>; !Get the old count 
CHK‘SUM~CNT = .CHR.SUN.CNT ♦ ,PD_SAVE<13, 1>; 

CHK _ SUMCNT e .CHK.SUN.CNT ♦ .PD_SAVE<14, 1>; 

CHK SUN CNT * .CHK SUN CNT ♦ .PD SAVE<15, 1>; 

REMAINDER = .PD 0 9 CNT - .CHK.SOM.CNT; !How many more to enter 


if .RENAJNDER geq 4 
then 

begin 


!Do we add in more than 3 


!Js this bit already set 


if .PD SAVE<12, 1> eql ZERO 
then 

begin 

PD SAVE <12, 1> * SET FLG; .'Set this bit 
REMAINDER = .REMAINDER • 4; ! Subtract the weight 

if .RENAJNDER eql ZERO !Are we all done 
then 

BlIs? TBL C.BNK.SEL. .PD.URD.SEL, FULL.WRD3 = .PD SAVE; 

ERROR NAP C.BNK.SEL. .PD.URD.SEL. FULL.URD3 = .BLAST. TBL C.BNK.SEL, 
.PD.URD.SEL, FULL.URfa; 
leave A; ! Leave the loop 

end; 


end; 

end; 

if .RENAJNDER geq 2 
then 

begin 


•Do we add in more than 1 


if .PD_SAVE<11 , 1> eql ZERO 
then 

begin 

PD.SAVE <11 , 1> = SET FLG; 
REMAINDER = .REMAINDER - 2; 

if .REMAINDER eql ZERO 
then 

begin 


* Is this bit already set 


JSet this bit 
! Subtract the weight 


.'Are we done 


BSKE14 

REV B PATCH 00 

6446 

6447 

6448 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

6456 

6457 

6458 

6459 

6460 

6461 

6462 

6463 

6464 

6465 

6466 

6467 

6468 

6469 

6470 

6471 

6472 

6473 

6474 

6475 

6476 

6477 

6478 

6479 

6480 

6481 

6482 

6483 

6484 

6485 

6486 

6487 

6488 

6489 

6490 

6491 

6492 

6493 

6494 

6495 

6496 

6497 
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SEQ 0248 


BLAST TBL C.BNK SEL, .PD WRD SEL. FULL WRD3 = .P D SAVE; 

ERR0R‘MAP C.BNK SEL. .PD.WRD SEL. FULL.WRDI = .8L*ST_TBL C.BNK.SEL, 
.PD.WRD.SEL, FULL.WRB3; 
leave A; ! Leave the loop 

end; 


end; 

end; 

If .REMAINDER geq 1 
then 

begin 


!Dn we add more than 0 


! I s this bit already set 


if .PD SAVE <10, 1> eql ZERO 
then 

begin 

PD SAVE<10. 1> = SET FLG; 'Set this bit 
REMAINDER = .REMAINDER - 1; ! Subtract the weight 

if .REMAINDER eql ZERO !Are we done 
then 

BL?S? TBL C.BNK.SEL, .PD.WRD.SEL, FULL.WRDJ = .PD SAVE; 

ERROR MAP C.BNK SEL, .PD.WRD.SEL, FULL.WRDJ = .BL*ST_TBL C.BNK.SEL, 
. PD.WRD.SE L. FULL.WRDJ; 
leave A; ! Leave the loop 

erd; 

end; 


end; 

if .PD_SAVE<13, 1> eql ZERO I Is this bit already set 
then 

PD 9 SAVE<13, 1> * SET FLG; ‘Set this bit 

REMAINDER = .REMAINDER - 1; 


if .REMAINDER eql ZERO 
then 

begin 


!Are we done 


begin 

BLAST TBL C.BNK SEL. .PD.WRD.SEL, FULL.WRDJ = .PD SAVE; „ 

ERROR MAP C.BNK.SEL. .PD.WRD.SEL, FULL.WRDJ = .BLXST.TBL C.BNK.SEL, 


.PD.WRD SEL. FULL.WRDJ; 
leave A; “ ! Leave the loop 

end; 

end; 

if .PD.SAVE<14. 1> eql ZERO ! Is this bit already set 
then 



REV B t»ATCH 00 

6498 

6499 

6500 

6501 

6502 

6503 

6504 

6505 

6506 

6507 

6508 

6509 

6510 

6511 

6512 

6513 

6514 

6515 

6516 

6517 

6518 

6519 

6520 

6521 

6522 

6523 

6524 

6525 


023776 004167 


024002 

024006 

024010 

024012 

024014 

024016 

024020 

024024 

024026 

024032 

024036 

024042 

024044 

024050 

024054 

024056 

024060 

024064 

024072 


162706 

005046 

011600 

006200 

006200 

006200 

062700 

010046 

016646 

042716 

012746 

005046 

004767 

062706 

006000 

103402 

000167 

016766 

006366 
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SEO 0249 


begin 

PO SAVE<14, 1> = SET FIG; 
REMAINDER = .REMAINDER - 1; 


.'Set this bit 
! Subtract the weight 


if .REMAINDER eql ZERO !Are we done 
then 

BlIs? T8L C.BNK.SEL, .PD.WRD.SEL. FULL.WRD3 * .PD SAVE; 

ERROR MAP C.BNK.SEL. .PD WRD.SEL. FULLJfRDJ = .BLXST.TBL C.8NK.SEL. 

.PD WRD.SEL. FULL WRB3; 
leave A; ! Leave the loop 

end; 

end; 

PD SAVE<15. 1> = SET.FL6; !Set the bit 

BLXST TBL t.BNK.SEL. .PD.URD.SEL, FULL.WRD3 * .PD SAVE; 

ERROR MAP C.BNK SEL. .PD.WRD.SEL. FULL.WRDJ = .BL*ST_TBL C.BNK.SEL. .PD_WRD_SEL. 
FOLL_yRDJ; 

end; 


end; 


end; 


end; 


end; 

OOOOOOG 

000016 


040420* 

000002 

177770 

000001 

OOOOOOG 

000010 


000530 

040376* 000014 
000014 


CAL.CHK.SUM: 

JSR 

SUB 

CLR 

IS: MOV 

AS R 
ASR 
AS R 
ADD 
MOV 
MOV 
BIC 
MOV 
CLR 
JSR 
ADD 
ROR 
BLO 
JMP 

2$: MOV 

ASL 


.S8TTL CAL. CHIC. SUM ROUTINE DECLARATIONS 


R1.SSAVE5 

#1$,SP 

-CSP) 

(SP). RO 
RO 
RO 
RO 

«BAD. 6NK.REG.R0 
RO.-(SP) 

#1 --(SP) 

-<$P) 

PC.BLSGT2 

flO.SP 

RO 

2S 

17 $ 

MAX. CHIP. COL. 14(SP) 
14(SP) 


BNK.SEL 
l.SEL,* 


.SEL.* 


6342 

6382 

6385 


6389 



8SKFL4 


024076 

024100 

024102 

024104 

024106 

024112 

024116 

024122 

024126 

024132 

024134 

024142 

024146 

024152 

024154 

024160 

024164 

024170 

024176 

024200 

024202 

024204 

024206 

024210 

024214 

024216 

024220 

024222 

024224 

024230 

024234 

024236 

024242 

024246 

024250 

024254 

024256 

024262 

024264 

024270 

024272 

024274 

024276 

024302 

024306 

024310 

024316 

024320 

024322 

024326 

024330 

024336 


F 4 


011600 

000300 

105000 

006300 

010066 

005066 

000167 

016605 

066605 

006305 

012766 

060566 

005776 

001002 

000167 

005066 

005066 

017666 

005004 

010403 

006203 

006203 

006203 

012702 

060602 

060203 

010346 

010446 

042716 

012746 

005046 

004767 

062706 

006000 

005566 

005204 

020427 

003746 

016604 

006204 

006204 

000304 

042704 

010466 

005004 

032766 

001401 

005204 

060466 

005004 

032766 

001401 





18“Mar-198< 

16:07:57 

TOPS -20 Bliss- 

ROUTINE 

DECLARATIONS 


18-Nar-198< 

15:44:41 

PA:<NEALE>PMSI 



NOV 

(SP).RO 


; BNK.SEL,* 



SWAB 

RO 





CLRB 

RO 





ASL 

RO 



000012 


NOV 

R0,12(SP> 



000004 


CLR 

4(S P) 


; PD.WRD.SEL 

000456 


JNP 

16S 



000004 

3S: 

NOV 

*<SP).R5 


; PD.WRD.SEL. 

000012 


ADD 

12(SP),R5 





ASL 

R5 



030372* 

000010 

NOV 

#8LAST.TBL,10(SP) 



000010 


ADD 

R5.10(SP) 



000010 


TST 

aiocsp) 





BNE 

4$ 



000414 


JNP 

15S 



000006 

4$: 

CLR 

6(SP) 


; PD. 0.9. CNT 

000002 


CLR 

2'SP) 


; CHK.SUN.CNT 

000010 

000016 

NOV 

aiO(SP).i6(SP> 


; *. PD. SAVE 



CLR 

R4 


; CNT 


5J: 

NOV 

R4.R3 


; CNT.* 



ASR 

R3 





ASR 

R3 





ASR 

R3 



000016 


NOV 

#16, R2 





ADD 

SP.R2 


; PD. SAVE,* 



ADO 

R2.R3 




177770 

000001 

0000006 

000010 

000006 

000011 

000016 


177770 

000002 

020000 000016 


000002 

040000 000016 


6 $: 


NOV R3.-CSP) 

NOV R4.-(SP> 

BIC #1 ^7770. (SP) 

MOV #1,-<SP) 

CLR -<SP> 

JSR PC.8LSGT2 

ADD HO.SP 

ROR RO 

ADC 6(SP) 

INC R4 

CHP A4.#11 

BLE 5* 

NOV 16CSP) ,R4 

ASA R4 

ASA A4 

SUA6 R4 

BIC #1 77770. A4 

NOV A4,2<SP> 

CLA A4 

BIT #20000. 16(SP> 

BEC 61 

INC A4 

ADD R4.2ISP) 

CLA R4 

BIT #40000, 16(SP) 

BEO 7$ 


; CNT,* 


; PD. 0.9. CNT 
; CNT 
; CNT.* 

; PD. SAVE,* 


•.CHK.SUN.CNT 
*, PD. SAVE 

•.CHK.SUN.CNT 
*. PD. SAVE 


Pag# 215 
SEQ 0250 


6392 


6380 

6392 


6396 

6397 

6398 
6400 
6402 


6400 

6404 

6405 

6*06 



BSKEL4 

REV B PATCH 00 


024340 
024342 
024346 
024350 
024354 
024356 
024360 
024364 
024370 
024374 
024400 
024402 
024410 
024412 
024420 
024424 
024426 
024432 
024434 
024 .',42 
024444 
024452 
024456 
024460 
024462 
024464 
024472 
024474 
024502 
024504 
024506 
024514 
024516 
024524 
024526 
024530 
024536 
024540 
024546 
024550 
024552 
024560 
024566 
024574 
024600 
024606 
024610 
024614 
024616 
024622 
024624 
024630 


005204 

060466 

005004 

005766 

100001 

005204 

060466 

016601 

166601 

020127 

002412 

032766 

001006 

052766 

162701 

001455 

020127 

002412 

032766 

001006 

052766 

162701 

001440 

005701 

003411 

032766 

001005 

052766 

005301 

001425 

032766 

001005 

052766 

005301 

001414 

032766 

001005 

052766 

005301 

001403 

052766 

016676 

017665 

005266 

026666 

002002 

000167 

005216 

021627 

003002 

000167 

062706 


ROUTINE DECLARATIONS 


000002 


000016 


000002 

000006 

000002 

000004 

010000 000016 

010000 000016 
000004 

000002 

004000 000016 

00-000 000016 
000002 


002000 000016 
002000 000016 

020000 000016 
020000 000016 

040000 000016 
040000 000016 


100000 000016 
000016 000010 
000010 010230* 
000004 

000004 000014 

177306 

000003 

177160 

000020 


G 4 

18-Mar-1982 16:07:57 
18-PUr- 1 982 15:44:41 

R4 

R4,2(SP) 

R4 

16(SP) 

8 $ 

R4 

R4,2(SP) 

6(SP).R1 

2(SP).R1 

R1,#4 

9$ 

#10000. 16(SP) 

9$ 

#10000. 16(SP) 

#4,R1 

14$ 

R1.#2 

ioi 

#4000,16(SP) 

10 $ 

#4000.16(SP> 

#2.R1 

14i 

R1 

11 $ 

#2000.16(SP) 

11 $ 

#2000.16(SP) 

R1 

14$ 

#20000. 16(SP) 

12 $ 

#20000. 16CSP) 

R1 

14$ 

#40000. 16 (SP) 

13$ 

#40000. 16(SP) 

R1 

14$ 

#100000, 16(SP) 

i 6 csp).ai 0 (sp> 

BIO(SP) .ERROR. MAP(R5) 

4(SP) 

4(SP).14(SP) 

17$ 

3$ 

(SP) 

(SP).# 3 
18$ 

1 $ 

#20. SP 


T0PS-20 Bliss-16 V2(212) 
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•.CHK.SUM.CNT 


Page 216 
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PD. SAVE 


*.CHK.SUM.CNT 

PD. 0. 9. CNT. REMAINDER 

CHK. SUM. CNT, REMAINDER 

REMAINDER.* 

*. PD. SAVE 

*. PD. SAVE 
*. REMAINDER 

REMAINDER.* 

*, PD. SAVE 

*, PD. SAVE 
*. REMAINDER 

REMAINDER 

*. PD. SAVE 

*. PD. SAVE 
REMAINDER 

*, PD. SAVE 

*. PD. SAVE 
REMAINDER 

*. PD. SAVE 

*, PD. SAVE 
REMAINDER 

*, PD. SAVE 
PD. SAVE.* 

PD.URD.SEl 

PD.URD.SEl,* 


6440 

6441 
6446 
6456 


6463 

6464 
6469 
647*? 

6482 

6483 
641® 
6496 


; BNK.SEl 
; BNK.SEL,* 


BSKEL4 

REV B PATCH 00 ROUTINE DECLARATIONS 



H 4 

18-Nar-1982 16:07:57 
18-Nar-1982 15:44:41 

TOPS-20 Bliss-16 V2 <21 2) 

PA : <NE ALE>PNSKL 4. BL I . 1 (53) 

Page 21 

SEQ 0252 

024634 000207 

RTS 

PC 





; Routine Size: 208 words 

; Maximum stack depth per invocation: 18 words 


BSH.ELA 

REV B PATCH 00 

6526 

6527 

6528 

6529 

6530 

6531 

6532 

6533 

6534 

6535 

6536 

6537 

6538 

6539 

6540 

6541 

6542 

6543 

6544 

6545 

6546 

6547 

6548 

6549 

6550 

6551 

6552 

6553 

6554 

6555 

6556 

6557 

6558 

6559 

6560 

6561 

6562 

6563 

6564 

6565 

6566 

6567 

6568 

6569 

6570 

6571 

6572 

6573 

6574 

6575 

6576 

6577 


I 4 

18-Har-1982 16:07:57 T0PS-20 Bliss-16 V2(212> 

ROUTINE DECLARATIONS 18-War-19§2 15:44:41 PA:<NEALE>PWSKL4.BLI . 1 (54) 

routine BL.PROWS (ARRS8NK.SEL) : novalue = 
begin 


Functional Description: ^ 

This global routine will search through the blast 
table and look for non-zero locations and 
then will blast tested array nodules UV proms 
with the new prom data. 

Formal Parameters: 

ARRSBNK SEL: 

“Stores the array and bank select address. 
Implicit Inputs: 

BAD.BNK.REG, BLAST.TBL. FLG.REG, RET.STAT'JS 
Implicit Outputs: 

The data clock time out flag in the flag register 
will be set if this control logic times out. 

Completion codes: 
none 

Side Effects: 
none 


label 

A; 

local 

PROW ADRS, 
FINISH; 


Heave loop label 

! Stores the generated prom address 


if . BNK.NUn.SE C eql 127 then FINISH * 127 else FINISH * 255; ! Is this a 16k part 

URT PROW WODE; i Enable prom writes 

PROW.ADRS = ZEROES; ‘Clear the prom adrs 

PROW ADRS<1 1 , 4> = .ARRSBNK SEL<.ARR.SEL.POS, ARR$SEL.SIZE>; JSelect the array 


incr SEL BNK from 0 to 3 do 

A : 

begin 

if .8AD.8NK.REG C.SEL.8NKJ 
then 

begin 

PROW ADRS<10, 1> = ZERO; 
PR0W_ADRS<8. 2> = .SEL.BNK; 

incr ROW.NUW from 0 to .FINISH do 


!Loop thru all the banks 

! Is this a bad bank 

!Load the row address select bit 
ILoad the bank select 

!Blast all the new row prom data 


Page 218 
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I BSKEL4 

' *5EV B PATCH 00 
6578 

; 6579 

; 6580 

; 6581 

; 6582 

6583 

6584 

6585 

; 6586 

6587 

; 6588 

6589 

; 6590 

; 6591 

6592 

6593 

6594 

6595 

6596 

; 6597 

; 6598 

6599 

6600 
6601 

; 6602 

; 6603 

6604 

; 6605 

6606 

6607 

6608 

; 6609 

; 6610 

; 6611 

6612 
6613 

; 6614 

6615 

6616 

6617 

6618 

6619 

6620 
6621 
6622 

6623 

6624 

6625 

6626 

6627 

6628 
6629 


ROUTINE DECLARATIONS 
begin 


J 4 

18-Rar-1982 16:07:57 
18-Har-1982 15:44:41 


if .BLAST.T8L C.SEL.BNK, .ROUJiUN, FULL.URDJ neq ZERO !I$ this tabl 
then 

as: ADRS<0, 8> = .ROW NUN; !Loed the row number 

WRT Rh (NLPA, PA REG, .PRON ADAS); .'Select the prom address 

WRT’RH (NLPD. PD REG, .BLAST TBL t.SEL.BNK, .ROW NUN. FULL.WRD3); 

DAT'CLK; TClock the new prom data in 

DELRy (FIFTY NS); 'Wait for the write to complete 


T0PS-20 Bliss-16 V2(212> 
PA:<NEALE>PNSKL4.BLI.1 (54) 


!Is this table entry not zero 


Page 2 IV 
SEO 0254 


!Load the prom data 


if .NL ADDR CNLNR, D CLO ! Did the data clock time out 
then 

ErHs? (ERR 10, TINE OUT NSG, 0); IReport the error 

PRINTS (ONE.NSG, REP N7363 NSG); 

PRINTS (ONE NSG, SUPRES NSG); 

FLG REG CFj.CLK.TINE.OOTD = SET.FLG; 

leave A; 

end; 


PR0N_ADRS<10, 1> = ONE; 


!Turn on the column addresses 


incr COL NUN from 0 to .FINISH do !Blast all the new columns 
begin 

if .BLAST TBL C.SEL_8NK, .COL.NUN ♦ .COL.BASE, FULL WRD3 neq ZERO 

! Is this table ENTR? NOT zrro 

then 

PrITaDRS^, 8> = .COL.NUN; ILoad the colimm number 

WRT Rh (NLPA, PA REG, .PRON ADRS); ISelect the prom address 

WRT'RH (NLPD, PD REG, .BLAST TBL t.SEL.BNK, .COL NUN ♦ .COL. BASE. FULL.WRD3); 

DAT”CLK; TClock the new prom data in 

DELRy (FIFTY.NS); .‘Wait for the write to complete 

if .NL.ADDR CNLNR. D.CLKJ !Did the data clock time out 
then 

Er8sF (ERR 10, TINE OUTNSG. 0); IReport the error 


Er8sF (ERR 10. TINE OUTNSG, 0); 
PRINTS (0f€.NS6, REPN7363 NSG); 
PRINTS (ONE NSG. SUPRES J«G); 

FLG.REG CFJ.CU.TINE.OOT] = SET.FLG; 

leave A; 

end; 


end; 


BSKEL4 

REV B PATCH 00 


6630 

6631 

6632 

6633 

6634 

6635 

6636 

6637 

6638 


ROUTINE DECLARATIONS 


CLR MBUS; 

DEL*Y (TEN_MS); 
end; 


K 4 

18-Mar-1982 16:07:57 
18-Mar-1982 15:44:41 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (54) 


Page 22 0 
SEQ 0255 


! Clear the prom write enable 


!Uait for 


t/oltage to settle 


024636 004167 OOOOOOG 


BL. PROMS: 


.S8TTL BL, PROMS ROUTINE DECLARATIONS 


024642 

024646 

024654 

024656 

024664 

024666 

024674 

024700 

024706 

024712 

024716 

024722 

024724 

024730 

024732 

024736 

024742 

024744 

024750 

024752 

024754 

024756 

024760 

024764 

024770 

024772 

024774 

024776 

025000 

025002 

025004 

025010 

025012 

025014 

025020 

025024 

025026 

025032 


162706 

026727 

001004 

012766 

000403 

012766 

016701 

016166 

012702 

016701 

010261 

005003 

012746 

060616 

016746 

012746 

005046 

004767 

000300 

006300 

006300 

006300 

042700 

042703 

050003 

005005 

010500 

006200 

006200 

006200 

062700 

010046 

010546 

042716 

012746 

005046 

004767 

062706 


000034 

040416* 000177 

000177 000002 

000377 000002 
040374* 

000024 000030 

000140 

040374* 

000024 

000054 

040412* 

000004 

OOOOOOG 


103777 

074000 


040420* 


177770 

000001 

OOOOOOG 

000010 


JSR R1.SSAVE5 

SUB #34, SP 

CMP BNK.NUM.SEC,#177 

BNE 1$ 

MOV #177,2(SP) 

BR 2$ 

MOV #377. 2 (SP) 

MOV ML.ADDR.R1 

MOV 24(R1).30(SP) 

MOV #140. R2 

MOV ML.ADDR.R1 

MOV R2.24CR1 ) 

CLR R3 

MOV #54.-<SP> 

ADD SP.(SP) 

MOV >RR.SEL.POS,-(SP) 

MOV #4,-(SP) 

CLR -(SP) 

JSR PC.SLSGT2 

SWAB RO 

ASL RO 

ASL RO 

ASL RO 

BIC #1 03777.R0 

BIC #74000, R3 

BIS R0.R3 

CLR R5 

MOV R5.R0 

ASR RO 

ASR RO 

ASR RO 

ADD #BAD. BNK.REG.RO 

MOV RO.-(SP) 

MOV R5.-(SP> 

BIC #1 77770, (SP) 

MOV #‘»,-(SP> 

CLR -(SP) 

JSR PC.8LSGT2 

ADD #10. SP 


*, FINISH 

*, FINISH 

*,ML.REG 

*,MLREG 

MLREG.* 

PROM.ADRS 

ARRJBNK.SEL,* 


*, PROM.ADRS 
*, PROM.ADRS 
SEL.BNK 
SEL.BNK.* 


; SEL.BNK.* 


1 BSKEL4 




REV B PATCH 00 

ROUTINE 

DECLARATIONS 

025036 

006000 



025040 

103402 



025042 

000167 

000626 

4$: 

025046 

010504 


025050 

000304 



025052 

042704 

176377 


025056 

042703 

003400 


025062 

050403 



025064 

010500 



025066 

000300 



025070 

105000 



025072 

006300 



025074 

010066 

000010 


025100 

005004 



025102 

000526 


5$: 

025104 

010400 


025106 

066600 

000010 


025112 

006300 



025114 

005760 

030372* 


025120 

001516 



025122 

105003 



025124 

150403 



025126 

016701 

040374* 


025132 

016166 

000020 

000036 

025140 

010302 



025142 

016701 

040374* 


025146 

010261 

000020 


025152 

016701 

040374’ 

000034 

025156 

016166 

000046 

025164 

016002 

030372* 


025170 

016701 

040374* 


025174 

010261 

000046 


025200 

v16701 

040374’ 


025204 

016166 

000024 

000032 

025212 

016602 

000032 


025216 

152702 

000020 


025222 

016701 

040374* 


025226 

010261 

000024 


025232 

012701 

000144 

6$: 

025236 

001411 


025240 

016702 

OOOOOOG 


025244 

001404 


7$: 

025246 

005066 

000042 

025252 

005302 



025254 

001374 


8$: 

025256 

005301 


025260 

000766 


9$: 

025262 

016701 

040374* 

025266 

016166 

000024 

000030 

025274 

032766 

000020 

000030 

025302 

001425 



025304 

104454 




L 4 
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ROR 

RO 

BLO 

4$ 

JHP 

20S 

MOV 

R5.R4 

SWAB 

R4 

BIC 

#176377,R4 

BIC 

#3400, R$ 

BIS 

R4,R3 

MOV 

R5,R0 

SWAB 

RO 

CLRB 

RO 

ASL 

RO 

MOV 

R0,10(SP) 

CLR 

R4 

BR 

IIS 

MOV 

R4,R0 

ADD 

10(SP) ,R0 

ASL 

RO 

TST 

BLAST. TBL(RO) 

BEG 

10$ 

CLRB 

R3 

BISB 

R4.R3 

MOV 

HL.ADDR.R1 

MOV 

20(R1).36(SP> 

MOV 

R3,R2 

NOV 

HL.ADDR.R1 

NOV 

R2,20(R1> 

MOV 

HL.ADDR.R1 

MOV 

46<R1).34(SP) 

NOV 

BLAST. TBL(RO) 

MOV 

ML.ADDR.R1 

MOV 

R2.46CR1) 

MOV 

ML.ADDR.R1 

MOV 

24(R1),32(SP) 

MOV 

32<SP),R2 

BISB 

#20, R2 

MOV 

MOV 

HL.ADDR.R1 
R2.24 <Rl ) 

MOV 

#1 44 ,R1 

BEQ 

9$ 

MOV 

LSDLY.R2 

BEO 

8$ 

CLR 

42 (SP) 

DEC 

R2 

BNE 

7$ 

DEC 

R1 

BR 

6$ 

MOV 

ML.ADDR.R1 

MOV 

24(R1) ,30(SP) 

BIT 

#20,30(SP) 

BEO 

10$ 

TRAP 

54 


TOPS-20 BHss-16 V2C212) 
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; SEL.8NK,* 

6575 

; *, PROM.ADRS 
; *,PROM.ADRS 
; SEL.BNK,* 

6580 

; ROW. NUN 

6577 

; ROW. NUN,* 

6580 

; PROM.ADRS 
; ROW.Nlfl, PROM.ADRS 

; *,HL.REG 
; PROM.ADRS .MLREG 

6583 

6584 

; MLREG,* 

; *,ML.REG 
; *. MLREG 

; MLREG,* 

6585 

; *,ML.REG 
; ML. REG, MLREG 
; *, MLREG 


; MLREG.* 

; *.$$TMP2 

6587 

; *,$$TMP1 


; $$TMP 
; SSTMP1 


; SSTMP2 


; *.ML.REG 
; *,ML.REG 

6589 

9 

6592 


REV B PATCH 00 ROUTINE DECLARATIONS 


025306 

000012 



.WORD 

025310 

002116’ 



.WORD 

025312 

000000 



.WORD 

025314 

012746 

002176’ 


NOV 

025320 

012746 

002556’ 


NOV 

025324 

012746 

000002 


NOV 

025330 

010600 



NOV 

025332 

104414 



TRAP 

025334 

012716 

001256’ 


NOV 

025340 

012746 

002556’ 


NOV 

025344 

012746 

000002 


NOV 

025350 

010600 



NOV 

025352 

104414 



TRAP 

025354 

000535 



BR 

025356 

005204 


10$: 

INC 

025360 

020466 

000012 

11$: 

CNP 

025364 

003647 



BLE 

025366 

052703 

0C2000 


BIS 

025372 

005004 



CLR 

025374 

000534 



BR 

025376 

010400 


12$: 

NOV 

025400 

066700 

040372’ 


ADD 

025404 

066600 

000010 


ADD 

025410 

006300 



ASL 

025412 

005760 

030372’ 


TST 

025416 

001522 



BEQ 

025420 

105003 



CLR8 

025422 

150403 



B1S6 

025424 

016701 

040374’ 


NOV 

025430 

016166 

000020 000026 


NOV 

025436 

010302 



NOV 

025440 

016701 

040374* 


NOV 

025444 

010261 

000020 


NOV 

025450 

016701 

040374* 


NOV 

025454 

016166 

000046 000024 


NOV 

025462 

016002 

030372* 


NOV 

025466 

016701 

040374* 


NOV 

025472 

010261 

000046 


NOV 

025476 

016701 

040374* 


NOV 

025502 

016166 

000024 000022 


NOV 

025510 

016600 

000022 


NOV 

025514 

152700 

000020 


BIS6 

025520 

016701 

040374* 


NOV 

025524 

010061 

000024 


NOV 

025530 

012702 

000144 


NOV 

025534 

001411 


13$: 

BEQ 

025536 

016701 

0000006 


NOV 

025542 

001404 



BEQ 

025544 

005066 

000042 

14$: 

CLR 

025550 

005301 



DEC 

025552 

001374 



BNE 

025554 

005302 


15$: 

DEC 



BSKEL4 
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025556 

025560 

025564 

025572 

025576 

025600 

025602 

025604 

025606 

025610 

025614 

025620 

025624 

025626 

025630 

025634 

025640 

025644 

025646 

025650 

025656 

025662 

025664 

025666 

025672 

025674 

025676 

025702 

025704 

025710 

025714 

025722 

025726 

025732 

025736 

025742 

025746 

025754 

025760 

025764 

025770 

025774 

025776 

026002 

026006 

026012 

026014 

026020 

026022 

026026 

026030 

026032 


000766 

016701 

016166 

031766 

001432 

104454 

000012 

002116' 

000000 

012746 

012746 

012746 

010600 

104414 

012716 

012746 

012746 

010600 

104414 

152767 

062706 

000404 

005204 

020466 

003641 

005205 

020527 

003002 

000167 

016701 

016166 

016600 

152700 

016701 

010061 

016701 

016166 

016600 

016705 

042705 

142700 

050500 

016701 

010061 

012702 

001411 

016701 

001404 

005066 

005301 

001374 

005302 


040374* 

000024 000020 
000020 


002176* 

002556' 

000002 


001256* 

002556' 

000002 


000200 040422* 
000012 


000012 


000003 

177064 

040374’ 

000010 000016 
000016 
000040 
040374* 

000010 

040374* 

000010 000014 

000014 

040400* 

177770 


040374* 

000010 

023420 

OOOOOOG 

000042 


BR 

NOV 

NOV 

BIT 

BEO 

TRAP 

.WORD 

.WORD 

.WORD 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 

NOV 

TRAP 

BIS8 

ADD 

BR 

INC 

CNP 

BLE 

INC 

CNP 

BGT 

JNP 

NOV 

NOV 

NOV 

BIS8 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

B1C 

BICB 

BIS 

NOV 

NOV 

NOV 

BEO 

NOV 

BEO 

CLR 

DEC 

BNE 

DEC 


13$ 

NL.ADDR.R1 
24CR1) JO(SP) 
(PC).26(SP) 

18 $ 

54 

12 

TINE. OUT. NSG 
0 

#REP.N7363.NSG,-(SP) 

#ONE.NSG,-(SP) 

#2.-(SP) 

SP.RO 

14 

#SUPRES.NSG.(SP) 

#ONE.NSG,-(SP) 

#2,-(SP) 

SP.RO 

14 

#200. F LG. REG 
#12. SP 
20 $ 

R4 

R4.12CSP) 

12 § 

R5 

R5.#3 

2ii 

3$ 

NL.ADDR.R1 
10CR1) ,16(SP) 

16CSP) ,R0 
#40, RO 
NL.ADDR.R1 
RO.IO(RI) 

Nl.ADDR.R1 
10(R1) . i4(SP) 
14(SP),R0 

#7, RO 
R5.R0 
NL.ADDR.R1 

rO.iqcrI 1 
#2$420,R2 
25$ 

L$DLV,R1 

24$ 

42 (SP) 

Rl 

23$ 

R2 


TOPS-20 BUss-16 V2(212) 
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; *,NL.REG 
; *,NL.REG 


Page 225 
SEQ 0258 


; SP,* 


; SP,* 


; COL. NUN 
; COL. NUN, FINISH 

; SEL.BNK 
; SEL.8NK,* 


; *,NL.REG 
; NL.REG.NLREG 
; *.HLREG 

; NLREG,* 

; *,NL.REG 
; NL.REG.NLREG 


; *, NLREG 
; *, NLREG 

; NLREG,* 

; *,$$TNP2 

; *,$$TNP1 

; $$TNP 
; $$TNP1 

; $$TNP2 


6567 


6637 


BSKEL4 

REV B PATCH 00 ROUTINE DECLARATIONS 

026034 000766 BR 22$ 

026036 062706 000044 25$: ADD #44. SP 

026042 000207 RTS PC 

; Routine Size: 323 words 

; Maximum stack depth per invocation: 29 words 



T0PS-20 Bliss-16 V2(212) 
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8SKELA 

REV B PATCH 00 

6639 

6640 

6641 

6642 

6643 

6644 

6645 

6646 

6647 

6648 

6649 

6650 

6651 

6652 

6653 

6654 

6655 

6656 

6657 

6658 

6659 

6660 
6661 
6662 

6663 

6664 

6665 

6666 

6667 

6668 

6669 

6670 

6671 

6672 

6673 

6674 

6675 

6676 

6677 

6678 

6679 

6680 
6681 
6682 

6683 

6684 

6685 

6686 

6687 

6688 

6689 

6690 


18-Har-1982 16:07:57 TOPS-20 Bliss-16 V2(212) 

ROUTINE DECLARATIONS 18-Nar-1982 15:44:41 PA:<NEALE>PHSKL4.BLI . 1 (55) 

routine VER BLAST (ARRS8NK.SEL) : novalue = 
begin 


Functional Description: 

After the proms have been blasted they 
must be read back to insure the data was 
written correctly. 

This global routine reads the banks prom 
data Back and compares it to the respective 
prom data stored in the error map. 

On compare erors the operator will be notified 
of a condition D and where the error occured. 

Formal Parameters: 

ARRS8NK SEL: 

'Stores the array and bank select address. 
Implicit Inputs: 

ERROR J1AP. DEGRADE J10DJ1EG. RET.STATUS 
Implicit Outputs: 

On compare errors this banks degrade mode register 
bit is set. 

Completion codes: 
none 

Side Effects: 
none 


local 

PROM ADRS. 

FINISH. 

ARR_SEL; 


! Stores the generated prom address 

! Variable ending sector number 

{Stores which array is selected for pm'ing 


ERROR J1AP : blockvector [4. 5123 volatile; .'Make the error map look like the blast table 

if .BNtc.NUH.SEC eql 127 then FINISH = 127 else FINISH = 255; !Is this a 16k chip 

RD PHQH NODE; {Enable prom read mode 

ARR SEL"- .ARRS6NK SEL<.ARR SEL.P0S. ARR*SEL„SIZE>; {Load the array select nmber 
PROA ADRS = ZEROES; TClear the prom addres 

PR0N_ADRS<1 1 , 4> = .ARR.SEL; !load the array select umber 

incr SEL BNK from 0 to 3 do {Loop on all banks 

begin 

PR0N_ADRS<10, 1> = ZERO; {Select the row addresses 


Page 
SEQ 0260 


BSKEL4 

REV B PATCH 00 


6691 

6692 
669? 

6694 

6695 
66 % 

6697 

6698 

6699 

6700 

6701 

6702 

6703 

6704 

6705 

6706 

6707 

6708 

6709 

6710 

6711 

6712 

6713 

6714 

6715 

6716 

6717 

6718 

6719 

6720 

6721 

6722 

6723 

6724 

6725 

6726 

6727 

6728 

6729 

6730 


ROUTINE DECLARATIONS 

PR0N_ADRS<8. 2> = .SEL.BNK; 

incr ROW NUB from 0 to .FINISH do 
begin 

PROH ADRS<0, 8> = .ROW.NUN; 


D 5 

18-H*r-19 

1R-Har-19 


16:07:57 TOPS-20 8li$s-16 V2C212) 
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! Select the bank 

!Look at all row addresses in the blast table 
!Load the row number 


WRT Rh (NLPA, PA_REG, 7PR0N.ADRS) ; ! Select the prom address 

DELRy (0NE_US); !Wait for tne prom data to come out 

if .ERROR.NAP t. SEL.BNK. .ROW.NUN, FULL.WRDJ neq .ML.ADDR CMLPD. PD.REGJ 
then 


begin 

ERRSF 


ERRSF (ERR 8, CON D HSG. 0); ! Report the error 

PRINTB (A B PRINT. .ARR SEL. . SELBNK) ; 

DEGRADE HOO.REG C.SEL.BllKJ = SET.FLG; 
end; 

end; 

PR0N_ADRS<10, 1> = ONE; ! Select 

incr COL.NUH from 0 to .FINISH do {Look a 

PR&^ADRScO, 8> = .COL NUN; ! Select 

WRT RH (NLPA. PA.REG. .PRON.ADRS); ! Select 
DELRy (ONE.US); {Wait f 


! Select the column addresses 

!Look at all the columns 

! Select the column addresses 

{Select the prom address 

{Wait for the prom data to come out 


if .ERROR NAP C.SEL BNK, .COL.NUN ♦ .COL.BASE, FULL.WRDJ neq .NL.ADDR [NLPD. PD REG3 
then 

begin 

ERRSF (ERR 8. CON D NSG. 0); '.Report the error 


begin 

ERRSF (ERR 8. CON.D.NSG. 0); '.Report 
PRINTS (A B PRINT. .ARR SEL, .SEL _BNK>; 
DEGRADE.h 0D.REG C.SEL.BRKJ = SETjLG; 
end; 


CLR.NBUS; 

end; 


{Clear out the prom read mode 


026044 

004167 

0000006 

.S8TTL 
VER. BLAST : 

VER. BLAST ROUTINE DECLARATIONS 

026050 

162706 

000024 

JSR 

SUB 

R1.SSAVE5 
#24, SP 

026054 

026727 

040416* 000177 

CMP 

BNK. NUN. SEC, #177 

026062 

001003 


BNE 

IS 

026064 

012716 

000177 

NOV 

#177, (SP) 

026070 

000402 


BR 

2$ 

026072 

012716 

000377 

1$: MOV 

#377, (SP) 

026076 

016701 

040374* 

2$: MOV 

ML.ADDR.R1 


•.FINISH 

•.FINISH 


BSKEL4 






REV B PATCH 00 

ROUTINE 

DECLARATIONS 



026102 

016166 

000024 

000020 


NOV 

026110 

026114 

Cl 2700 
01670 1 

000040 

040374* 



NOV 

NOV 

026120 

010061 

000024 



NOV 

026124 

O' 2746 

000044 



NOV 

026130 

060616 




APP 

026132 

016746 

040412* 



NOV 

026136 

012746 

000004 



NOV 

026142 

005046 




CLR 

026144 

004767 

OOOOOOG 



JSR 

026150 

010005 




NOV 

026152 

005004 




CLR 

026154 

010503 




NOV 

026156 

000303 




SWAB 

026160 

006303 




ASL 

026162 

006303 




ASL 

026164 

006303 




ASL 

026166 

042703 

103777 



B1C 

026172 

042704 

074000 



BIC 

026176 

050304 




BIS 

026200 

005002 



3$: 

CLR 

026202 

010203 



NOV 

026204 

000303 




SWAB 

026206 

042703 

176377 



BIC 

026212 

042704 

003400 



BIC 

026216 

050304 




BIS 

026220 

010200 




NOV 

026222 





SWAB 

026224 

105000 




CLR8 

026226 





ASL 

026230 

010066 

000012 



NOV 

026234 

005003 




CLR 

026236 

000503 



4$: 

BR 

026240 

105004 



CLR8 

C26242 

150304 




BIS6 

026244 

016701 

040374* 



NOV 

026250 

016166 

000020 

000026 


NOV 

026256 

010400 




NOV 

026260 

016701 

040374* 



NOV 

026264 

010061 

000020 



NOV 

026270 

012700 

000001 


5$: 

NOV 

026274 

001411 



BEQ 

026276 

016701 

OOOOOOG 



NOV 

026302 

001404 




BEQ 

026304 

005066 

000032 


6$: 

CLR 

026310 

005301 




DEC 

026312 

001374 



7$: 

BNE 

026314 

005300 



DEC 

026316 

000766 



8$: 

BR 

026320 

010300 



NOV 

026322 

026326 


000012 



ADD 



ASL 


E 5 

18-War- 19 
18-Nar-19 

24<R1),20(SP) 

#40, RO 

HL.ADDR.R1 

R0.24(R1) 

#44. -(SP) 

SP.(SP) 

ARR.SEL.POS.-(SP) 

#4,-(SP) 

-(SP) 

PC.8LSGT2 

R0.R5 

R4 

R5.R3 

R3 

R3 

R3 

R3 

#103777,R3 
#74000. R4 
R3.R4 
R2 

S2.R3 

R3 

#1 76377 .R3 

#3400. R4 

R3.R4 

R2.R0 

RO 

RO 

RO 

R0,12<SP> 

R3 

10 $ 

R4 

R3.R4 

NL.ADDR.R1 

20(R1),26(SP) 

R4.R0 

NL.ADDR.R1 

R0.201R1) 

#?,R0 

8 $ 

LlDLY.Rl 

7* 

3 2(SP) 

R1 

6 $ 

RO 

5 $ 

R3.R0 

12(SP),R0 

RO 
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; *,NL.REG 
; *.WLREG 

; NLREG.* 

; ARRS8NK.SEL.* 


♦.ARR.SEL 

PROW.ADRS 

ARR.SEL.* 


*, PROW. APRS 
*, PROW. APRS 
SEL.BNK 
SEL.BNK,* 


; *. PROW. APRS 
; *, PROW. APRS 
; SEL.BNK,* 


ROU.NLM 

PROW. APRS 
ROy.NLM, PROW. APRS 

*.WL.REG 
PROW. APRS .WLREG 

W.REG.* 

*,$$TWP2 

*,$$TWP1 

SSTWP 

SSTWP1 

$$THP2 

ROW.NUW,* 


Page 227 
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6684 


6685 

6686 


6688 

6691 


6699 

6693 

6695 

6696 


6697 


6699 


REv'V PATCH 00 ROUTINE DECLARATIONS 


026330 016701 040374' 

026334 016166 000046 000024 
026066 010230' 000024 
026350 001435 
026352 104454 
026354 000010 
026356 001436' 

026360 000000 
026362 010246 
026364 010546 
026366 012746 003264' 

026372 012746 000003 
026376 010600 
026400 104414 
026402 010200 


026406 006200 


026412 
026416 
026420 
026422 
026426 
026432 
026434 


062700 
010016 
010246 
042716 
012746 
011646 
004767 



040424' 


177770 

000001 

OOOOOOG 

000016 

000010 

002000 


040374* 

000020 000022 

040374* 

000020 

000001 

OOOOOOG 

000032 


040372* 


NOV 

NOV 

CMP 

BEO 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

MOV 

ASR 

ASR 

ASR 

ADD 

MOV 

MOV 

BIC 

MOV 

NOV 

JSR 

ADD 

INC 

CMP 

BLE 

BIS 

CLR 

BR 


18-Mar- 1982 16:07:57 
18-Nar-1982 15:44:41 


ML.ADDR.R1 

46(R1>.Z4(SP> 

ERROR. MAP (RO) ,24 (SP) 
9$ 

54 

10 

CON. D. MSG 
0 

R2.-CSP) 

R5,-(SP) 

#A.B. PRINT, -(SP) 
#3,-(SP) 

SP.RO 

14 

R2,R0 

RO 

RO 

RO 

#DE GRADE . MOD . RE G ,R0 
RO, (SP) 


R2.-(SP) 
»W71 


7770. (SP) 
#1,-(SP) 

(SP), -(SP) 
PC.8L*PU2 
#16, SP 
R3 

R3,10(SP) 

4$ 

#2000, R4 

17* 

R4 

R3,R4 

NL.ADDR.R1 

20(R1),$2(SP) 

R4,R0 

NL.ADDR.R1 

R0,20(R1) 

#1.R0 

15$ 

tfr -" 1 

13* 

RO 

12 * 

R3.R0 

COL. BASE, RO 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BII.1 (55) 


; *,Ml.REG 
; *,NL.REG 


; SEL.BNK,* 
; ARR.SEL.* 

,* SP,* 

; SEL.BNK,* 


; SEL.BNK,* 


ROW.MM 
ROW.MM, FINISH 

•.PROM.ADRS 
COL. MM 

PROM.ADRS 

COL. MM, PROM.ADRS 

•-ML.REG 
PROM.ADRS ,MLREG 

MLREG,* 

*,**TMP2 

*,**TMP1 

**TMP 

SSTMP1 


Page 
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6702 

6703 


6704 


6701 

6693 


67V 

67i: 

67V 


671 


**TMP2 
COL. MM,* 


671 



REV B 
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026560 

016701 

040374' 



NOV 

026564 

016166 

000046 

010230’ 

000020 


NOV 

026572 

026066 

000020 


CNP 

026600 

001435 




8EQ 

026602 

104454 




TRAP 

026604 

000010 

001436’ 




.WORD 

026606 




.WORD 

026610 

000000 




.WORD 

026612 

010246 




NOV 

026614 

010546 




NOV 

026616 

012746 

003264’ 



NOV 

0266 22 

012746 

000003 



NOV 

026626 

OlOoOO 




NOV 

026630 

104414 




TRAP 

026632 

010200 




NOV 

026634 

006200 




ASR 

026636 

006200 




ASR 

026640 

006200 




ASR 

026642 

062700 

040424* 



ADD 

026646 

010016 




NOV 

026650 

010246 




NOV 

026652 

042716 

177770 



BIC 

026656 

012746 

000001 



NOV 

026662 

011646 




NOV 

026664 

004767 

OOOOOOG 



J SR 

026670 

062706 

000016 



ADD 

026674 

005203 



16$: 

INC 

026676 

020366 

000010 


17$: 

CNP 

026702 

003670 




BLE 

026704 

005202 




INC 

026706 

020227 

000003 



CNP 

026712 

003002 




BGT 

026714 

000167 

177262 



JHP 

026720 

016701 

040374’ 


18$: 

NOV 

026724 

026732 

016166 

000010 

000016 


NOV 

016600 

000016 



NOV 

026736 

152700 




BIS8 

026742 

016701 



NOV 

026746 

010061 

000010 



NOV 

026752 

016701 

040374* 



NOV 

026756 

016166 

000010 

000014 


NOV 

026764 

016600 

000014 



NOV 

026770 

016705 

040400' 

177770 

000007 



NOV 

026774 

027000 

042705 

142700 



BIC 

BIC8 

027004 

050500 

040374’ 



BIS 

027006 

027012 

016701 



NOV 


000010 



NOV 

027016 

wm 

000034 



ADD 

027022 




RTS 


L 


G $ 

18-Har-1982 
18-Har-1982 

HL.ADDR.R1 
46(R1> ,20(SP> 

ERROR. HAP<R0).20<SP) 
16$ 

54 

10 

CON. D. HSG 
0 

R2.-(SP> 

R5,-(SP> 

#A.B. PRINT. -<SP> 
#3,-(SP) 

SP.RO 

14 

R2.R0 

RO 

RO 

RO 

#0E GRADE. NOD.REG.RO 
RO.(SP) 

R2.-(SP) 

#177770, (SP) 
#1,-<SP> 

(SP). -<SP) 

PC.BL$PU2 
#16. SP 
R3 

R3.10(SP) 

ni 

R2 

R2,#3 

I8i 

3$ 

HL.ADDR.R1 

10(R1).16(SP) 

16<SP).R0 

#40. RO 

HL.ADDR.R1 

RO.IO(RI) 

HL.ADDR.R1 

10(R1).14(SP) 

14<SP).R0 

#7,R0 

R5.R0 

Nl.ADDR.R1 

RO.IO(Rf) 

#34. SP 
PC 
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T0PS-20 Bliss-16 V2C212) 
PA:<NEALE>PHSKL4.BLI .1 (55) 


; *.HL.REG 
; *,HL.REG 


; SEL.BNK.* 
; AAR.SEL.* 


; SP.* 

; SEL.BNK.* 


; SEL.BNK, * 


; COL. MM 
; COL. NUN. FINISH 

; SEL.BNK 
; SEL.BNK.* 


; *.NL.REG 
; HL.REG.NLREG 
; *.NLREG 

; NLREG.* 

; *.NL.REG 
; HL.REG.NLREG 


; *. NLREG 
; *. NLREG 

; NLREG.* 


Page 
SEO 0264 


6720 

6721 

6722 


6719 

6711 

6688 

6727 


6639 


; Routine Size: 248 words 


5 
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; Maximal stack depth par invocation: 27 words 



RSKELA 

REV B PATCH 00 

6731 

6732 

6733 

6734 

6735 

6736 

6737 

6738 

6739 

6740 

6741 

6742 

6743 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6754 

6755 

6756 

6757 

6758 

6759 

6760 

6761 

6762 

6763 

6764 

6765 

6766 

6767 

6768 

6769 

6770 

6771 

6772 

6773 

6774 

6775 

6776 

6777 

6778 

6779 

6780 

6781 

6782 


I 5 

18-H»r-1982 16:07:57 TOPS-20 Bliss-16 V2<212) 

ROUTINE DECLARATIONS 18-Rar-1982 15:44:41 PA:<NEALE>PHSKL4.BLI . 1 (56) 

routine VER ERROR.NASK (ARRS8NK.SEL, TSTED.8NK) : novilue = 
begin 


Functional Description: j t J ,, 

After the proms have been blasted and the proms are read for a good blast the 
selected array is write checked again and Made sure that all blasted rows and 
columns have been successfully blasted. 

UNC errors are not tolerated in any bank and warrents the array to be replaced, 
single chip failures in degrade node banks is tolerated and does not constiture an error, 
single chip failures in non-degrade node banks is not tolerated and will cause an 
error and that the array be replaced. 

Formal Parameters: 

ARRS8NK SEL : 

'Stores the array and bank select address. 

Implicit Inputs: 

bad_bnk_reg. FLG.REG. DEGRADE.HOD.REG 

Implicit Outputs: 
none 

Completion codes: 
none 

Side Effects: 
none 


l °“U NUN, ! Stores the selected bank number 

ARR>UN; ! Stores the selected array number 

ARR.NUH = .ARRS8Nk_SEK.ARR.SEL.P0S. ARRSSEL.SIZE>; .'Load the array number 

incr SEL.BNK from 0 to .TSTED.8NK - 1 do IVerify all banks 

bSTnUN = .ARRS8NK.SEK.8Nk.SEL.P0S, 8NKSSEL.SIZE>; !Load the bank sel number 


if .BAD 8NK.REG C.8NK.NUNJ ! Is this a bad bank 

then 

begin 

FB.CHIPS (.ARRS8NK.SEL); !Fmd any bad bits 

if S CHIP TBL (ZERO) geq ZERO 'Here any bad bits found 

then 

begin 

if .FLG.REG CF_UNC.ERR.FLGJ 
then 


!Uas it an unc error 
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6783 

6784 

6785 

6786 

6787 

6788 

6789 

6790 

6791 

6792 

6793 

6794 

6795 

6796 

6797 

6798 

6799 

6800 
6801 
6802 

6803 

6804 

6805 

6806 


ROUTINE DECLARATIONS 
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Page 232 
SEQ 0267 


else 


ER^SF (ERR 11, UNC.ERR MSG. 0); iReport the error 

PRINTS (REP.PRINT, .ARP.NUM); 

end 

I 

begin 

if not . DEGRADE JR0D_REG C.BNK.NUMJ .'Is this not a degrade mode bank 
then 

ER^SF (ERR 12. MEM.ERR MSG. 0); .'Report the error 

PRINTS (REP.PRINT. .ARP.NUM); 

end; 

end; 


end; 

end; 

ARRSBNK.SEl = . ARRSSNK.SE L ♦ . INC.8NK; ! Select the next bank 
end; 


end; 


.SSTTL VER. ERROR. MASK ROUTINE DECLARATIONS 


027024 

004167 

00C000G 

VER. ERROR. MASK: 
JSR 

R1 .SSAVE4 
#20.-(SP) 

027030 

012746 

000020 

MOV 

027034 

060616 


ADD 

SP.(SP) 

027036 

016746 

040412’ 

MOV 

ARR.SEL.POS.-(SP) 

027042 

012746 

000004 

MOV 

#4,-(SP) 

027046 

005046 


CLR 

-(SP> 

027050 

004767 

000000G 

JSR 

PC.8LSGT2 

027054 

010004 


MOV 

R0.R4 

027056 

005001 


CLR 

R1 

027060 

000533 


BR 

6S 

027062 

012746 

000030 

IS: MOV 

#30. -(SP) 

027066 

060616 


ADD 

SP.(SP) 

027070 

016746 

040414' 

MOV 

8NK.SEL.P0S,-(SP) 

027074 

012746 

000002 

MOV 

#2,-(SP) 

027100 

005046 


CL ft 

-(SP) 

027102 

004767 

OOOOOOG 

JSR 

PC.BLSGT2 

027106 

010002 


MOV 

R0.R2 

027110 

010203 


MOV 

R2.R3 

027112 

006203 


ASR 

R3 

027114 

006203 


ASR 

R3 

027116 

006203 


ASR 

R3 

027U0 

010346 


MOV 

R3.-CSP) 

027122 

062716 

040420’ 

ADD 

#BAD. BNK. REG. (SP) 

027126 

010246 


MOV 

R2.-(SP) 


ARRS8NK.SEL,* 


; *,ARR.NUM 
; SEL.BNK 


; ARRS8NK.SEL.* 


6731 

6766 


6768 

6770 


; BNK.MUM,* 


; BNK.NUM,* 


6772 


J 



BSKELA 

REV B PATCH 00 ROUTINE DECLARATIONS 


0271 30 

0271 34 

027140 

027142 

027146 

027152 

0271 54 

027156 

027162 

027166 

027170 

027174 

027176 

027200 

027202 

027210 

027212 

027214 

027216 

027220 

027222 

027224 

027230 

027234 

027236 

027240 

027242 

027244 

027250 

027252 

027256 

027262 

027264 

027270 

027274 

027276 

027300 

027302 

027304 

027306 

027310 

027312 

027316 

027322 

027324 

027326 

027332 

027334 

027342 

027346 

027350 

027354 


042716 

012746 

005046 

004767 

062706 

006000 

103067 

016646 

004767 

005046 

004767 

005726 

005700 

002454 

032767 

001414 

104454 

000013 

002040* 

000000 

010446 

012746 

012746 

010600 

104414 

000432 

010346 

062716 

010246 

042716 

012746 

005046 

004767 

062706 

006000 

103415 

104454 

000014 

002236* 

000000 

010446 

012746 

012746 

010600 

104414 

062706 

005726 

066766 

062706 

005201 

020166 

002642 


177770 

000001 

OOOOOOG 

000010 


000036 

174206 

165114 


000002 040422* 


003200* 

000002 


040424* 

177770 

000001 

0000006 

000010 


003200* 

000002 


000006 


040406* 000036 
000010 

000024 


BIC 

NOV 

ClR 

JSR 

ADD 

ROR 

BCC 

NOV 

JSR 

CLR 

JSR 

TST 

TST 

BLT 

BIT 

BEQ 

TRAP 

.WORD 

.WORD 

.WORD 

NOV 

NOV 

NOV 

NOV 

TRAP 

BR 

NOV 

ADD 

NOV 

BIC 

NOV 

CLR 

JSR 

ADD 

ROR 

BLO 

TRAP 

.WORD 

.WORD 

.WORD 


3$: 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

4$: 

TST 

5$: 

ADD 

6$: 

ADD 

INC 

CNP 


BLT 
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6732 

6731 



B3*EL4 

REV B PATCH 00 

6807 

6808 

6809 

6810 
6811 
6812 

6813 

6814 

6815 

6816 

68 1 7 

6818 

6819 

6820 
6821 
6822 

6823 

6824 

6825 

6826 

6827 

6828 

6829 

6830 

6831 

6832 

6833 

6834 

6835 

6836 

6837 

6838 

6839 

6840 

6841 

6842 

6843 

6844 

6845 

6846 

6847 
6S48 

6849 

6850 

6851 

6852 

6853 

6854 

6855 

6856 

6857 

6858 
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Xsbttl ’INITIALIZE CODE SECTION' 

I 

i INITIALIZE CODE SECTION 

i 

BGNINIT; 


local 

I 

! Hardware ptable entry temporary storage locations 


sys.hwtbl, 

ARR HUTBL, 

BNK HUTBL. 

BNK NO.HUTBL. 
ARR NO HUTBL. 
RH BASE HUTBL. 
OUT HUTBL, 
OPTION HUTBL. 
CORRECT HUTBL, 
PTBL PTR. 

LUN;~ 


.'prom malnt the entire system 

iProm malnt a single array module 

!Prom malnt a single bank 

iBank number to be prom malnt 

! Array module number to be prom malnt 

! Rh base register address 

!D1 vice number to be prom malnt 

iDrlve option code 1 • ml-lla, 0 = ml-llb 

!Are the program parameters correct flag 

! Hardware ptable pointer 

! Supervisor logical unit number variable 


if .LSUNIT gtr ONE 
then 


begin 

ERRSF (ERR 9. HQ.ERR.MSG. 0); 
PRINTB (ONE.MSG. GTR MSG); 
PRINTB (ONE.MSG. UNlT.SEL.MSG); 
end; 


iUhere more one ptable built 


! Report the error 
! Report what the error is 

iReport that the first ptable built will be used 


LSUNIT = 0; iOnly one drive Is to be tested 

2 

! Because of the inpact of this program on the 
! HL-11 system only the start command will be 
! recognized to start program execution 


if not (READEF (EF.START)) 
then 


ErHsF (ERR 1. ILL CMD MSG. 0); 
PRINTB (ONE MSG. START.MSG); 
DODU (.LSUNTT); 

DOCLN; 

end; 


!Uas the start command used to start the program 


iReport the error 
iReport what the error is 
iDrop this unit 

!Go to the clean up code section 


! The contents of the first p-table built (lun 0 ) 

! will be the selected progran parameters, all other remaining 
i P-tables built will be ignored. 

LUN = ZERO; 
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Page 236 
SEQ 0271 


if (GPHARD (.LUN, PTBL.PTR)) eql ZERO 
then 

ErSs? (ERR 3, LUN MISS MSG. 0); 

PRINTS (ONE.MSG, SUPRES MSG); 

PRINTS (ONE MSG. RET.DRS.MSG) ; 

DODU (.LSUNlT); 

DOCLN; 

end 

else 

begin 

! Input to the program the hardware ptable 
! entries and store them into the temporary 
! storage locations 


SYS HUTBL = .(( 
ARR HUTBL = .(( 
BNK HUTBL = .(( 
BNK“NO HUTBL = 
ARR NO HUTBL = 
RHjUsE HUTBL = 
DUT HUTBL = .(( 
OPTION HUTBL = 
CORRECl.HUTBL = 
end; 


.PTBL PTR) ♦ Xo'O'); 

.PT8L PTR) ♦ Xo ' 2 ' ) ; 

.PTBL PTR) ♦ Xo ' 4 ' ) ; 
.((.PTBL PTR) ♦ Xo'6'); 
.((.PTBL’PTR) ♦ Xo’IO'); 
.((.PTBt PTR) ♦ Xo ' 1 2 ' 3 ; 
.PTBL PTRl ♦ Xo'14'); 
.((.PTBL PTR) ♦ Xo'16'); 
.((.PTBt.PTR) ♦ Xo'20'3; 


Before we start, lets see if the operator 
entered his parameters correctly. 


6892 if not .CORRECT.HUTBL 

6893 then 

6894 begin 

6895 PRINTS (LFS); 

6896 PRINTB (ONE.MSG. SUPRES MSG); 

6897 PRINTB (ONE MSG. RET DRS.MSG); 

6898 DODU (.LSUNlT); 

6899 DOCLN; 

6900 end 

6901 else 

6902 begin 

6903 

6904 ! Build the run time parameters 


arrSbnk sel = zeroes; 
ML.ADDR = .RH.BASE HUTBL; 
ML.DUT = .DUT.HUTBC; 


!Is the first ptable present 


! Report the error 
! Report suppress message 
! Report returning to drs> 

!Drop this unit 

!Go to the drop unit code section 


!Are the inputed parameters correct 

IPrint some line feeds to be neat 
! Print the suppress message 
IPrint returning to drs> message 
I Drop this unit 

IGo to the clean up code section 


I Load the array t bank select variable with zeroes 

ILoad the ml-11 base address into ml.addr 

.'Load ml.dut with the divices drive select number 


Set up 16k or 64k mos ram run time parameters 
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6911 

6912 

6913 

6914 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 

6928 

6929 

6930 

6931 

6932 

6933 

6934 

6935 

6936 

6937 

6938 

6939 

6940 

6941 

6942 

6943 

6944 

6945 

6946 

6947 

6948 

6949 

6950 

6951 

6952 

6953 

6954 

6955 

6956 

6957 

6958 

6959 

6960 

6961 

6962 
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if .OPTION.HttTBL eql NL11A 
then 

begin 

COL.BASE = 128; 

INC BNK = Xo'2&0'; 

INC ARR = Xo'1000 . 
BNKNUN.SEC = 127; 
ARRSEL.POS - 9; 

BNK SEL.POS = 7; 
NAX.CHlP.COL = 128; 
e d 


elje 


be in 

COC.BASE = 256; 

INC BNK = Xo’1000’; 
INC ARR = Xo'4000*; 
BNK.NUN.SEC = 511; 
ARR SEL.POS =11; 
BNK.SEL POS = 9; 
NAX.CHIP.COL = 256; 
end; 


! I s this a mt-lla option 16k parts 


!Load the column base offset 

!Load the bank increment variable 

!Load the an ay increment variable 

!Load the banks number of sectors variable 

!Load the array select position constant 

ILoat the bank select position constant 

!Load the maximum columns per chip variable 


!Load the column base offset variable 
!Load the bank increment variable 
!Load the array increment variable 
ILoad the banks number of sectors variable 
!Load the array selection position constant 
ILoad the bank selection position constant 
ILoad the maximus columns per chip variable 


Build the run time parameter for masking 
either the entire system, an entire array or 
a single bank. 


if . SYS.HWTBL 
then 

(NLCS2, DRV SEL, .NL OUT); 

LST TSTED ARR = .Nt.ADDR CNrNR, SIZING} 
RAND PASS = 4; 

TSTEU.BNK = 4; 
end 

else 

begin 


I Is the entire ml-11 system to be prom maint 


I Select the drive under test 
- 1; .'Read and save the sizing 
I Do two random data passes 
I Test four banks per array 


if .ARR HUT8L I Is a single array to be prom maint 

then 

begin 

LST TSTED ARR = 0; ILoad loop variable to test only one array 

RAND PASS"- 8; I Do three passes of random data 

TSTED BNK = 4; I Test all four banks on the array 

ARRS8flK_SEL<.ARR_SEL_P0S. ARR$SEL.SI2E> = . ARR.NO.HWTBL ; 'Select which array to test 

end 

else 

begin 
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6965 

6966 

6967 
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6970 
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6972 
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6975 
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6977 

6978 

6979 

6980 

6981 

6982 

6983 

6984 

6985 

6986 

6987 

6988 

6989 

6990 

6991 

6992 

6993 

6994 

6995 

6996 

6997 

6998 

6999 

7000 

7001 

7002 

7003 

7004 

7005 

7006 

7007 

7008 

7009 

7010 

7011 

7012 

7013 

7014 
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! Is a single bank to be prom maint 


if .8NK.HWT8L 
then 

begin 

LST TSTED ARR = 0; !Load loop variable to test only one array 

RAN0 PASS~= 13; !Do five passes of random data 

TSTE0 BNK = 1; !Test only one bank 

ARRSBfl* SEU.ARR SEL POS. ARR$SEL.SIZE> = .ARR.NO.HWTBL; 

! Select which array to prom mai.it 
ARRS8NK SEK.BNK SEL.POS. BNKSSEL SIZE> = .BNK N0„ HUTBL; 

ISelect which Bank to prom maint 
end 

else 

begin 

The hardware questions were not answered 
correctly. Masking either a system, array 
or bank was not selected. Report the error 
and rerturn to DRS>. 


ERRSF (ERR 2. HO.ERR MSG. 0); 
PRINTB (ONf.MSG. HQ flSG); 
PRINTS (ONE MSG. SuPRES MSG); 
PRINTB (ONE MSG. RET.DRS.MSG) ; 
DODU (.LSUNlT); 

DOCLN; 

end; 


! Report the error 
! Report what the error is 
IPrint suppress message 
! Print returning to drs> message 
.'Drop this unit 

!Go to the clean up code section 


end; 


end; 


end; 

i 

j VER CZMLCB ADDED PM.COUNT 

j 

PM COUNT = 0; Unit the prom maint counter 


Added this init code of this structure here. 

The prom maint error log table stores the number of 
detected all bad rows and or columns detected during 
the run time of this diagnostic. In this table is stored 
the : unit #. board #. bank #, bit # 
and a count of how many all bad rows and or columns 
detected withib each chip. 

This code initializes this structure to zeroes 
before starting execution of the exerciser. 
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7015 

7016 

7017 

7018 

7019 

7020 

7021 


incr index fro* 0 to 127 do 
begin 

PM LOG [.index. «RD$.03 = ZERO; 
PH LOG [.index. WRDS.1D = ZERO; 
end; 

ENDINIT; 
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[Clear the prom maint error log table 

! Clear word zero 
[Clear word one 


027364 

004167 

000000G 

.S8TTL 
LINIT: JSR 

LINIT INITIALIZE CODE SECTION 

R1.SSAVE5 

#14, SP 

027370 

162706 

000014 

SUB 

027374 

026727 

OOOOOOG 000001 

CMP 

L$UNIT.#1 

027402 

003426 


BLE 

1$ 

027404 

104454 


TRAP 

54 

027406 

000011 


.WORD 

11 

027410 

001070’ 


.WORD 

HQ. ERR. MSG 

027412 

000000 


.WORD 

0 

027414 

012746 

001506’ 

HOV 

#GTR.MSG,-(SP> 

027420 

012746 

002556’ 

MOV 

fONE.HSG.-(SP) 

027424 

012746 

000002 

HOV 

#2,-<SP) 

027430 

010600 


HOV 

SP, RO 

027432 

104414 


TRAP 

14 

027434 

012716 

001562’ 

HOV 

#UN!T.SEL.MSG,(SP) 

#ONE.MSG,-(SP) 

027440 

012746 

002556’ 

HOV 

027444 

012746 

000002 

HOV 

#2,-(SP) 

027450 

010600 


HOV 

SP.RO 

027452 

104414 


TRAP 

14 

027454 

062706 

000012 

ADD 

#1 2.SP 

027460 

005067 

OOOOOOG 

1*: CLR 

LSUNIT 

027464 

012700 

000040 

HOV 

#40, RO 

027470 

104447 


TRAP 

47 

027472 

103422 


BCS 

2$ 

027474 

104454 


TRAP 

54 

027476 

000001 


.WORD 

1 

027500 

000726* 


.WORD 

ILL.CMD.MSG 

027502 

000000 


.WORD 

0 

027504 

012746 

001032’ 

HOV 

#START.HSG,*(SP) 

027510 

012746 

002556’ 

HOV 

#ONE.MSG,-(SP) 

027514 

012746 

000002 

HOV 

#2.-<SP> 

027520 

010600 


MOV 

SP.RO 

027522 

104414 


TRAP 

14 

027524 

016700 

OOOOOOG 

HOV 

LSUNIT.RO 

027530 

104451 


TRAP 

51 

027532 

104444 


TRAP 

44 

027534 

062706 

000006 

ADD 

#6,SP 

027540 

005000 


2$: CLR 

RO 

027542 

104442 


TRAP 

42 

027544 

010005 


HOV 

R0.R5 

027546 

001033 


ONE 

3$ 

027550 

104454 


TRAP 

54 

027552 

000003 


.WORD 



SP,* 


SP,* 


SP.* 


; LUN 

; *.PTBL.PTR 
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SEO 0274 


6806 

6829 

6832 

6833 


6834 


6831 

6837 

6844 


6847 


6848 


6849 


6846 

6858 

6860 


6863 
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0275 54 
027556 
027560 
027564 
027570 
027574 
027576 
027600 
027604 
027610 
027614 
027616 
027620 
027624 
027626 
027630 
027634 
027636 
027642 
027650 
027656 
027662 
027666 
027672 
027676 
027702 
027706 
027710 
027712 
027716 
027722 
027724 
027726 
027732 
027736 
027742 
027744 
027746 
027752 
027756 
027762 
027764 
027766 
027772 
027774 
027776 
030002 
030004 
030010 
030014 
030020 
030022 


001340’ 

000000 

012746 

012746 

012746 

010600 

104414 

012716 

012746 

012746 

010600 

104414 

016700 

104451 

104444 

062706 

000424 

011566 

016566 

016566 

016516 

016501 

016502 

016503 

016504 

016505 

006005 

103435 

012746 

012746 

010600 

104414 

012716 

012746 

012746 

010600 

104414 

012716 

012746 

012746 

010600 

104414 

016700 

104451 

104444 

062706 

000537 

005067 

010267 

010367 

005304 

001026 
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SEQ 0275 



.WORD 

LUN.NISS.RSG 






.WORD 

0 




001256* 

002556’ 


NOV 

#SUPRES.NSG,-(SP> 


0 

6864 


NOV 

#ONE.NSG,-(SP> 




000002 


NOV 

#2.-<SP> 






NOV 

SP.RO 


; SP,* 




TRAP 

14 




001316’ 


NOV 

#RET.DRS.NSG, (SP) 


0 

6865 

002556’ 


NOV 

#ONE .NSG.-(SP) 




000002 


NOV 

#2,-(SP) 






NOV 

SP.RO 


; SP,* 




TRAP 

14 




OOOOOOG 


NOV 

LSUNJT.RO 


• 

» 

6866 



TRAP 

51 






TRAP 

44 




000012 


ADD 

#12. SP 


• 

• 

6862 



BR 

4$ 


• 

0 

6860 

000006 

3$: 

NOV 

(R5) .6CSP) 


; PTBUPTR.SYS.HWTBL 
; *(PTBl.PTR),ARR.HUTBL 

6876 

000002 000004 


NOV 

2(R5).4(SP) 


6877 

000004 000002 


NOV 

4(R5).2(SP) 


; *(PTBL.PTR) ,BNK. HUTBL 

6878 

000006 


NOV 

6(R5),(SP) 

10(R5),R1 


; *(PTBL.PTR) .BNK.N0.HUT8L 

6879 

000010 


NOV 


; *(PTBL.PTR),ARR.N0.HUT8L 

6880 

000012 


NOV 

12(R5) ,R2 


; *(PTBL.PTR) .RH.BASE.HUTBL 

6881 

000014 


NOV 

14(R5),R3 


; *(PTBL.PTR) .DUT.HUTBL 

6882 

000016 


NOV 

16(R5).R4 


; *(PTBL.PTR) , OPTION. HUTBL 

6883 

000020 


NOV 

20(R5) ,R5 


; *(PTBL.PTR) .CORRECT. HUTBL 

6884 


4$: 

ROR 

R5 


; CORRECT. HWTBL 

6892 



BLO 

5$ 




002632' 


NOV 

#LFS,-(SP> 


0 

6895 

000001 


NOV 

#1,-(SP) 






NOV 

SP.RO 


; SP.* 




TRAP 

14 




001256' 


NOV 

#SUPRES.RSG, (SP) 


• 

0 

6896 

002556* 


NOV 

#ONE.NSG.-(SP> 




000002 


NOV 

#2.-(SP) 






NOV 

SP.RO 


; SP,* 




TRAP 

14 




001316' 


NOV 

fRET.DRS.NSG.(SP) 


0 

6897 

002556' 


NOV 

#ONE.NSG.-(SP) 




000002 


NOV 

#2.-<SP) 






NOV 

SP.RO 


: sp,* 




TRAP 

14 




0000006 


NOV 

LSUNJT.RO 


• 

0 

6898 



TRAP 

51 






TRAP 

44 




000014 


ADD 

#14, SP 


0 

6894 



BR 

8$ 


• 

0 

6892 

040402' 

5$: 

CLR 

ARRS8NK.SEL 


• 

0 

6906 

040374* 


NOV 

R2.NL.ADDR 


; RH.BASE.HUTBL.* 

6907 

040400' 


NOV 

R3.NL.DUT 


; DUT.HUTBL,* 

; OPTION. HUTBL 

6908 


DEC 

R4 


6913 



8NE 

61 
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030024 

030032 

030040 

030046 

030054 

030062 

030070 

030076 

030100 

030106 

030114 

050122 

030130 

030136 

030144 

030152 

030160 

030162 

030166 

030174 



030262 


1 

i 

M 

HI 


jTjft 

HI 

ft 


0 

ft 

Tr 

e 




1 

& 

o 

Id 

a.? 

030340 


ft 


0 


L' *Tl 

E 



0 

ft 


E 

ft 



030366 


012767 

012767 

012767 

012767 

012767 

012767 

012767 

000425 

012767 

012767 

012767 

012767 

012767 

012767 

012767 

032766 

001451 

016705 

016566 

016604 

016705 

042705 

142704 

050504 

016705 

010465 

016705 

016566 

016605 

006205 

006205 

006205 

000305 

042705 

005305 

010567 

012767 

012767 

000532 

032766 

001422 

005067 

012767 

012767 

012746 

016746 

012746 

010146 

004767 

OOO502 

032766 


0014 


000200 

000200 

001000 

000177 

000011 

000007 

000200 


040372* 

040406* 

040410* 

040416* 

040412* 

040414* 

040376’ 


001000 040406* 
004000 040410' 
000777 040416* 
000013 040412* 
000011 040414* 
000400 040376* 
000001 

040374* 

000010 000012 

000012 

040400* 

177770 

000007 

040374* 

000010 

040374* 

000024 000010 
000010 


177740 

040434* 

0015004 

000004 


040436* 

040404* 


000001 000004 


040436' 

040404' 


040434* 

000010 

000004 

040402* 

040412' 

000004 

0000000 


000001 000002 
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NOV #200, COL. BASE 

MOV #200. INC. BN*C 

NOV #1000. INC .ARR 

MOV #177,BNK.NUN.SEC 

NOV #11.ARR.SEL.P0S 

MOV #7.BNJC.SEL.P0S 

NOV #20O.MAX. CHIP. COL 

BR 7$ 

MOV #400. COL. BASE 

NOV #1OO0.INC.BNK 

NOV #4000. INC. ARR 

NOV #777,BNK.NUN.SEC 

MOV #13,ARR.SEL.P0S 

NOV #11 .BNK.SEL.POS 

NOV #406.MAX. CHIP. COL 

BIT #1.6(SP) 

BEQ 9$ 

MOV ML.ADDR.R5 

NOV 10(R5).12(SP) 

NOV 12(SP).R4 

MOV ML.DUT.R5 

BIC #1 77776, R5 

BICB #7,R4 

BIS R5.R4 

MOV ML.ADDR.R5 

MOV R4,10(R5> 

MOV ML.ADDR.R5 

MOV 24(R5),10(SP) 

MOV 10(SP),R5 

ASR R5 

ASR R5 

ASR R5 

SUA8 R5 

BIC #1 77740.R5 

DEC R5 

MOV R5.LST.TSTED.ARR 

MOV #4 .RAND. PASS 

NOV #4,TSTED.BNK 

BR 14* 

BIT #1,4(SP) 

BEO 10* 

CLR LST.TSTED.ARR 

MOV #10, RAND. PASS 

NOV #4,TSTED.BNK 

MOV #ARR»K.SEL,-<SP) 

MOV ARR.SEL.POS.-(SP) 

MOV #4.-<SP) 

MOV R1 ,-(SP) 

JSR PC.BLSPU2 

BR 13i 

BIT #1.2(SP) 

ni 
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•.SVS.HUTBL 


* .ML. REG 
NL.REG.MLREG 


; *,NLRE6 
; *,MLREG 

; MLREG,* 

; * .ML. REG 
; ML. REG.* 
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SEQ 0276 


6916 

6917 

6918 

6919 

6920 

6921 

6922 
6913 

6926 

6927 

6928 

6929 

6930 

6931 

6932 
6941 


*,ARR.HUTBL 


; ARR.NO.HWTBL,* 


6955 

6956 

6957 
695B 


; *,BNK.HWTBL 
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030370 

030374 

030402 

030410 

030414 

030420 

030424 

030426 

030432 

030436 

030442 

030446 

030452 

030456 

030460 

030462 

030464 

030466 

030470 

030474 

030500 

030504 

030506 

030510 

030514 

030520 

030524 

030526 

030530 

030534 

030540 

030544 

030546 

030550 

030554 

030556 

030560 

030564 

030570 

030574 

030576 

030600 

030602 

030604 

030610 

030614 

030616 
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005067 

040434’ 


CLR 

012767 

000015 040436’ 


AOV 

012767 

000001 040404’ 

040402’ 


NOV 

012746 


AOV 

016746 

040412’ 


NOV 

012746 

000004 


AOV 

010146 



AOV 

004767 

0000006 


JSR 

012716 

040402’ 


AOV 

016746 

040414* 


AOV 

012746 

000002 


AOV 

016646 

000014 


AOV 

004767 

0000 OOG 


JSR 

000440 



BR 

104454 


11$: 

TRAP 

000002 



.WORD 

001070’ 



.WORD 

000000 



.WORD 

012746 

001144’ 


AOV 

012746 

002556’ 


AOV 

012746 

000002 


AOV 

010600 



AOV 

104414 



TRAP 

012716 

001256’ 


AOV 

012746 

002556’ 


AOV 

012746 

000002 


AOV 

010600 



AOV 

104414 



TRAP 

012716 

001316’ 


AOV 

012746 

002556’ 


AOV 

012746 

000002 


AOV 

010600 



AOV 

104414 



TRAP 

016700 

OOOOOOG 


AOV 

104451 



TRAP 

104444 



TRAP 

062706 

000006 

12$: 

ADD 

0627% 

005067 

000010 

13$: 

ADD 

000000* 

14$: 

CLR 

005004 



CLR 

010405 


15$: 

AOV 

006305 



ASL 

006305 



ASL 

005065 

000002’ 


CLR 


>52 

_ : >27 
003765 
062706 
000207 


000004’ 

000177 

000014 


CLR 

INC 

CAP 

BLE 

ADD 

RTS 


LST.TSTED.ARR 
#15. RAND. PASS 
#1 .TSTED.BNK 
# ARRS8NK.SE l, -(SP) 
ARR.SEL.POS.-(SP) 
#4,-(SP) 

RI.-(SP) 

PC.BLSPU2 
#ARR$BNK.SEL, (SP) 
BNK.SEL.POS.-(SP) 
#2,-( SP) 

14(SP) ,-(SP) 
PC.BLSPU2 
12 $ 

54 

2 

HQ.ERR.haG 

0 

#HQ.ASG,-(SP> 

#ONE.ASG.-CSP) 

#2,-(SP) 

SP.RO 

14 

#SUPRES.ASG,(SP) 

#ONE.ASG.-(SP) 

#2,-(SP) 

SP.RO 

14 

#RE T . DRS . ASG . ( SP) 

#ONE.ASG,-(SP) 

#2,-(SP> 

SP.RO 

14 

^SUNIT.RO 

44 

#6 .SP 
flO.SP 
PA. COUNT 
R4 

R4.R5 

R5 

R5 

PA.LOG(RS) 

PA.L0G*2(R5) 

R4 

R4 .#177 
15 $ 

#14. SP 
PC 


; Root in* Site: 339 words 


T0PS-20 Bliss-16 V2(212> 

PA : <NEALE>PASKL4 ,BL I . 1 (57) 

9 

9 

; ARR.NO.HWTBl,* 

; BNK.N0.HWT8L,* 

0 

9 

; SP,* 

9 

; SP,* 

9 

; SP.* 

9 

9 

9 

; INDEX 
; IWJEX,* 

; INDEX 
; INDEX,* 
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SEQ 0277 

6966 

6967 

6968 

6969 


6971 


6963 

6982 

6983 

6984 

6985 


6986 


6961 

6950 

6998 

7015 

7017 


7018 

7015 

6806 
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INITIALIZE CODE SECTION 


; Maxima* stack depth per invocation: 19 words 
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.S8TTL 

LSINIT INITIALIZE CODE SECTION 

030652 

004767 176526 

LSINIT: : JSR 

PC,L1NIT 

030636 

104411 

TRAP 

11 

030640 

000207 

RTS 

PC 


; Routine Size: 4 words 

; Maximum stack depth per invocation: 0 words 


7019 



REV B PATCH 00 MAIN PROM MA1NT CONTROL CODE 


I 6 

18-Mar-1982 16:07:57 
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TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (58) 


7022 

7023 

7024 

7025 

7026 

7027 

7028 

7029 

7030 

7031 

7032 

7033 

7034 

7035 

7036 

7037 

7038 

7039 

7040 

7041 

7042 

7043 

7044 

7045 

7046 

7047 

7048 

7049 

7050 

7051 

7052 

7053 

7054 

7055 

7056 

7057 

7058 

7059 

7060 

7061 

7062 

7063 

7064 

7065 

7066 

7067 

7068 

7069 

7070 

7071 

7072 

7073 


Zsbttl 'MAIN PR CM HAiNT CONTROL CODE' 

I 

! Main prom maint control code 

i 

BGNTST; 


functional Description: . , L , . . . .. 

The ML11 aemory system with its mostly array technology has the facil- 
ity to offset around known bad memory locations in its memory arrays. 

Initially, these memory arrays are tested for bad row and column ad- 
dress locations and the specific offsetting information is stored in 
prom on the array module. This testing is done on a special 2224 mem- 
ory tester by Memory Manufacturing. 

The design of the ML11 has also provided logic that when under 
software control will update an array modules offsetting information. 
This logic is to be utilized when additional memory cells are disco- 
vered bad after the system has left the manufacturing facility. 

Program Execution Overview 

1. Via software question section prompt the operator for 

program parameters and build the run time parameters which 
controls the programs execution. 


2. While in ECC-DIS mode do Mass Bus writes, write checks and 
Reads to find all faulty data chips (bits 0 to 35; in the 
bank under test. 


Store failing Chip numbers and failing patterns into the bad 
chip table called 'chip.tbl'. 

3. If a UNC Err occurred during Step 2 

then 

While in data Diagnostic Mode 
do Single Step DMA Writes and 
reads to find all faulty CRC Chips 
(bits 36 to 38) in the 
bank under test. 

Store falling chip numbers and 
failing patterns into 'chip.tbl'. 

Else 

Do not perform this step. 

4. While in Data Diagnostic Mode do single step DMA Writes and 
Load a failing chip in the bank under test with a failing 
pattern. 

5. While in Data Diagnostic Mode do Single Step DMA Reads and 
read all words in all the sectors of the just loaded chip. 



8SKEL4 

REV 8 PATCH 00 


MAIN PROM MAIN! 


7074 

1 


7075 

i 


7076 

i 


7077 

i 


7078 

! 


7079 

i 


7080 

I 


7081 

i 

6. 

7082 

i 


7083 

j 

7. 

7084 

i 


7085 

i 


7086 

i 


7087 

j 

8. 

7088 

i 


7089 

i 


7090 

» 

9. 

7091 

"i 


7092 

i 


7093 

i 


7094 

I 

10 

7095 

• 


7096 

I 


7097 

i 


7098 

j 


7099 

• 


7100 

J 


7101 

! 


7102 

j 


7103 

i 


7104 

i 


7105 

i 


7106 

i 


7107 

j 


7108 

i 


7109 

i 


7110 

i 


7111 

i 


7112 

i 

11 

7113 

i 


7114 

i 


7115 

i 


7116 

j 


7117 

j 


7118 

j 

12 

7119 

; 


7120 

j 


7121 

j 


7122 

j 


7123 

j 

13 

7124 

i 


7125 

i 
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On each read compare the read chip data to the forced chip 
data. 

On a compare error load the failing Row address into the error 
map at the failing Sector number. 

Repeat steps 4 and 5 with all failing patterns for this chip. 

Jnterigate the error map for this chip and load the blast table 
at this chips nibble and bank position with failing Row and 
Column offset information. 

Zero the error map and repeat steps 4 thru 7 for all failing 
chips in this Bank under test. 

Zero the error map and chip.tbl and repeat steps 2 thru 
9 for all remaining banks under test within this array mo- 
dule. 

Interigate the blast table at each bank under test for this 
array module and see if the newly discovered nibble row and 
column offsets plus the old nibble Row and Column offsets 
exceed 14 for any one nibble position. 

If any bank under test within this array module nibble off- 
sets exceed 14 
then 

Mask as many errors as possible 
(maximum of 14) and leave the 
remaining errors unmasked. 

Report to the operator a condition 'C' 
message and continue program execution. 


continue program execution. 

At each bank under test within this array module and at newly 
discovered nibble Row and Column offset position only, calcu- 
late the new check sum values. Store the new check sum va- 
lues into the blast table at their respective Row or Coluan 
position. 

At each bank under test for this array module and at their 
newly discovered nibble Row and Column offset positions only, 
blast the module under test UV proms with the new offset in- 
formation. 

Read the module under test UV proms back and verify that 
blasting was successful. 


BSKEL4 

REV 8 PATCH 00 

7126 

7127 

7128 

7129 

7130 

7131 

7132 

7133 

71 34 

7135 

7136 

7137 

7138 

7139 

7140 

7141 

7142 

7143 

7144 

7145 

7146 

7147 

7148 

7149 

7150 

7151 

7152 

7153 

7154 

7155 

7156 

7157 

7158 

7159 

7160 

7161 

7162 

7163 

7164 

7165 

7166 

7167 

7168 

7169 

7170 

7171 

7172 

7173 

7174 

7175 

7176 

7177 
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! If blasting was successful 

! then 

! Continue program execution 


Report the unsuccessful Prom blast. 

Report a condition 'D' message and abort 
further program execution and return 
to DS> 

14. Verify the blasting has masked the newly discovered errors by 
repeating steps 2 and 3 at all tested banks within this array 
module. 

At each iteration the table storing faulty chips and patterns 
should be zero. 

If not zero 
then 

If this is a degraded mode 
Array then 

1. Ignore single bit errors 

2. Call Array out for 
replacement of UNC errors 
occur 

If this is a non degrade 
mode Array then 

1. Report single bit errors, 
suspect HW errors 

2. Report UNC errors 
suspect HU errors 

15. Increment the Array Selection count and repeat steps 2 thru 
steps 14 until all present Array Nodules have been tested. 

16. Report to operator that Array Maintenance is completed. 

17. Abort program execution and return to DS>. 

Formal Parameters: 
none 

Implicit Inputs: 

DEGRADE.MOD.REG, BAD.BNK, SBE.L0G, URT.BUf 

Implicit Outputs: 
none 


Page 
3EQ 0281 


i 
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SEQ 0282 


7178 

7179 

7180 

7181 

7182 

7183 

7184 

7185 

7186 

7187 

7188 

7189 

7190 

7191 

7192 

7193 

7194 

7195 

7196 

7197 

7198 

7199 

7200 

7201 

7202 

7203 

7204 

7205 

7206 

7207 

7208 

7209 

7210 

7211 

7212 

7213 

7214 

7215 

7216 

7217 

7218 

7219 

7220 

7221 

7222 

7223 

7224 

7225 

7226 

7227 

7228 

7229 


Completion Codes: 
none 

Side Effects: 
none 


local 

TENP.TSTED BNK, 
TEMP_ARR$BRk_S£L; 


[Temporary storage for the number of tested banks per array 
[Temporary storage for the array t bank select variable 


! Prompt the operator that the 
! prom maintanence program has begun 
! and which drive is selected. 

i 

PRINTS (0NE_M$G. BGN MSG) ; 

PRINTB (DRV.SEL.PRINT, .ML.DUT); 

j This outer loop will pm all selected 
[ arrays. It will pm from either one array to the selected 
! drives max arrays present. 


incr ARR SEL from 0 to .LST.TSTED.ARR do 
begin 
BREAK* 

DEGRADE MOD.REG = ZEROES; 

BAD BNK.REG = ZEROES; 

FLG REG = ZEROFS; 

I BCAST T8L (); 

TEMP TSTED BNK = .TSTED BNK; 
TEMP’ARRSBRK SEL = .ARRlBNK.SEL; 


[Test all selected arrays 


[Clear the degrade mode register 
[Clear the bad bank registers flags 
[Clear the flag register 
[Inti the blast table 

[Load nunber of tested banks into temp storage 
[Load the array t bank sel into temp storage 


! This inner loop will find new failing rows S 
! columns within bad chips in the banks of the selected 
! arrays. Either 4 banks, if pm’ing sys/array 
[ or 1 bank if pm'ing a single bank will be tested. 

! Prompt the operator which array is presently selected 
PRINTB (ARR.SEL.PRINT, .ARRS8NK_SEL<.ARR_$EL_P0S. ARR$SEL.SIZE»; 


begin 


!Prom maint all the failing chips in this bank 
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7230 

7231 

7232 

7233 

7234 

7235 

7236 

7237 

7238 

7239 

7240 

7241 

7242 

7243 

7244 

7245 

7246 

7247 

7248 

7249 

7250 

7251 

7252 

7253 

7254 

7255 

7256 

7257 

7258 

7259 

7260 

7261 

7262 

7263 

7264 

7265 

7266 

7267 

7268 

7269 

7270 

7271 

7272 


H 6 

18-Mar-1982 16:07:57 

MAIN PROW MAINT CONTROL CODE 18-Mar-1982 15:44:41 

until (.TEMP.TSTED.BNK eql ZERO) or (.FLG.REG [F.ABORT.ARRAYJ); 


T0PS-20 Bliss-16 V2 (21 2) 
PA:<NEALE>PMSKL4.8LI.1 (58) 

{Repeat until all banks are tested 


The blast table has now been loaded with all 

newly failing rows and columns within this tested array. 


if .FIG REG lF_ABORT_ARRAYJ !Uas the abort array flag set during prom maint 

then 

PRINTS (ONE MSG. AB0RT_MSG) {Report that prom maint for this array is aborted 

else 

begin 

IN.BLAST.TBL ( .ARRSBNK.SEL. .TSTED.8NK); Jlnterigate the blast table 

if .BAD BNK.REG eql ZERO !Are there any additional errors to blast 

then 

PRINTS (ONE.MSG, N0.AD.MSG) {Print no additional errors message 

else 


begin 

CAL CHK SUM (); ! Calculate the new prom data check sums 

8L_PR0M5 (.ARRS8NK_SEL); {Blast the proms with the newly failing rows/cols 

if .FLG.REG CF_D_CLK.TIME.0UTJ then exitloop; 


VER BLAST (.ARRSBNK SEL); 
VERlERROR.MASK ( . ARRS8NK_SEL. 

end; 


! Verify that the blast was successful 
.TSTFO BNK) ; 

Tvertf) that the blast masked out the new failing rows/cols 


end; 

ARRSBNK SEL = .ARRSBNK SEL + .INC.ARR; {Increment to the next array 
end; 


! Prompt the operator that the 
! program execution has ended 

PRINTS (ONE.MSG. END.MSG); 
PRINTB (ONE MSG. RET.DRS.MSG); 
DODU (.LSUNlT); 

DOCLN; 

ENDTST; 


{Report that the program is completed 
{Print returning to 3rs> message 
{Drop this unit 

!Go to the clear up code section 


030642 

004167 

OOOOOOG 

030646 

012746 

001000’ 

030652 

012746 

002556’ 

030656 

012746 

000002 

030662 

010600 


030664 

104414 



.S8TTL ST1 MAIN PROM MAINT CONTROL CODE 

STT : JSR R1.SSAVE4 

MOV #8GN.MSG,-(SP) 

MOV fONE.MSG.-(SP) 

MOV #2,-(SP) 

MOV SP.R0 ; SP,* 

TRAP 14 
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030666 

016716 

040400’ 

002670’ 


MOV 

ML.DUT, (SP) 

• 

§ 

030672 

012746 


MOV 

#DRV.SEL. PRINT. -(SP) 


030676 

012746 

000002 


MOV 

#2,-<SP> 


030702 

010600 



MOV 

SP.RO 

; SP.* 

030704 

104414 



TRAP 

14 


030706 

016704 

040434’ 


MOV 

LST.TSTED.ARR.R4 


030712 

005001 



CLR 

R1 

; ARR.SEL 

030714 

000572 



BR 

9$ 


030716 

104422 


IS: 

TRAP 

22 


030720 

005067 

040424* 


CLR 

DEGRADE. MOD. REG 


030724 

005067 

040420* 


CLR 

BAD.BNK.REG 


030730 

005067 

040422* 


CLR 

FLG.REG 


030734 

004767 

154336 


JSR 

PC.I.BLAST.TBL 


030740 

016703 

040404’ 


MOV 

TSTED.BNK.R3 

; *,TEMP.TSTED.8NK 

030744 

016702 

040402* 


MOV 

ARRS6NK.SEl.R2 

; *, TEMP.ARRSBNK.SE 

030750 

012746 

040402’ 


MOV 

fARRSBNK . SEL ,- ( SP) 


030754 

016746 

040412* 


MOV 

ARR.SEL.POS.-(SP) 


030760 

012746 



MOV 

#4,-(SP> 


030764 

005046 



CLR 

“(SP) 


030766 

004767 

0000006 


JSR 

PC.BLSGT2 


030772 

010016 



MOV 

R0,(SP) 

#ARR.SEL. PRINT, -(SP) 


030774 

012746 

002722* 


MOV 


031000 

012746 

000002 


MOV 

#2,-(SP> 


031004 

010600 



MOV 

SP.RO 

; SP.* 

031006 

104414 



TRAP 

14 


031010 

010246 


2$: 

NOV 

R2,-(SP) 

; TEMP.ARRSBNK.SE,* 

031012 

016746 

040414' 


MOV 

BNK.SEL.POS.-(SP) 


031016 

012746 

000002 


MOV 

#2.-(SP> 


031022 

005046 



CLR 

-(SP) 


031024 

004767 

000000G 


JSR 

PC.BLSGT1 


031030 

010016 



NOV 

RO, (SP) 


031032 

012746 

002770* 


MOV 

#8NK.SEL. PRINT, -(SP) 


031036 

012746 

000002 


MOV 

02, -(SP) 


031042 

010600 



NOV 

SP.RO 

; SP,* 

031044 

104414 



TRAP 

14 


031046 

010216 



MOV 

R2,(SP> 

; TEMP.ARRSBNK.SE,* 

031050 

004767 

172320 


JSR 

PC.F8. CHIPS 


031054 

010216 



NOV 

R2,(SP) 

; TEMP.ARRSBNK.SE,* 

031056 

004767 

172362 


JSR 

PC ,PN. THIS. BANK 

031062 

066702 

040406* 


ADD 

INC.BNK.R2 

; *, TEMP. ARRS8NK.SE 

031066 

005303 



DEC 

R3 

; TENP.TSTED.BNK 

031070 

062706 

000014 


ADD 

#14,SP 

• 

0 

031074 

005703 



TST 

R3 

; TENP.TSTED.BNK 

031076 

001404 



8EQ 

3$ 

031100 

032767 

000100 040422* 


BIT 

#100, FLG.REG 


031106 

001740 



BEQ 

2$ 


031110 

032767 

000100 040422* 

3$: 

BIT 

#100, FLG.REG 

• 

0 

031116 

001411 



BEQ 

4$ 


031120 

012746 

001714’ 


NOV 

#ABORT.NSG,-(SP) 

• 

0 

031124 

012746 

002556* 


NOV 

#ONE.NSG,-(SP) 

#2,-(SP) 


031130 

012746 

000002 


NOV 


031134 

010600 



NOV 

SP.RO 

; SP.* 
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7195 


7202 


7203 

7205 

7206 

7207 

7208 

7209 

7210 
7220 


7224 


7225 

7226 

7227 

7228 
7223 
7230 


7237 

7239 
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031136 

031140 

031142 

031146 

031152 

031156 

031162 

031164 

031170 

031174 

031200 

031202 

031204 

031206 

031210 

031214 

031220 

031224 

031230 

031232 

031236 

031240 

031244 

031250 

031254 

031260 

031264 

031266 

031274 

031300 

031302 

031304 

031306 

031312 

031316 

031322 

031324 

SIS 

031336 

031342 

031344 

031346 

o 0 ?,'I 

031356 

031362 


104414 

000452 

016746 

016746 

004767 

005767 

001012 

012746 

012746 

012746 

010600 

104414 

005726 

000426 

004767 

016746 

004767 

105767 

100003 

062706 

000423 

016716 

004767 

016716 

016746 

004767 

005726 

066767 

062706 

005201 

020104 

003604 

012716 

012746 

012746 

010600 

104414 

012716 

012746 

012746 

010600 

104414 

016700 

104451 

104444 

062706 

000207 
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040402' 

040404' 

164110 

040420' 


001764* 

002556’ 

000002 


172562 

040402* 

173412 

040422' 

000022 

040402* 

174574 

040402* 

040404' 

175540 


040410' 040402' 
000022 


001222 ' 

002556’ 

000002 


001316' 

002556' 

000002 


0000006 


000022 


TRAP 

BR 

MOV 

MOV 

JSR 

TST 

BNF 

MOV 

MOV 

MOV 

MOV 

TRAP 

TST 

BR 

JSR 

MOV 

JSR 

TSTB 

BPL 

ADD 

BR 

MOV 

JSR 

MOV 

MOV 

JSR 

TST 

ADD 

ADD 

INC 

CMP 

BLE 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

NOV 

NOV 

NOV 

TRAP 

NOV 

TRAP 

TRAP 

ADD 

RTS 


B 7 

18-Rar-1982 

18-Nar-198< 


ARRS8NK.SE L.-(SP) 
TSTED.BNK.-(SP) 

PC. IN. BLAST. TBL 

BAD.BNK.REG 

5$ 

fNO.AD.MSG.-(SP) 

#ONE.MSG,-(SP) 

#2.-(SP) 

SP.RO 

14 

<SP>* 

7$ 

PC , CAL . CHK . SUN 
ARRSBNK.SEL.-(SP) 
PC. BL. PROMS 
FLG.REG 
6 $ 

#22. SP 
10S 

ARRS8NK.SEL, (SP) 

PC, VER. BLAST 
ARRS8NK.SEL. (SP) 
TSTED.BNK.-(SP) 

PC, VER. ERROR. MASK 
(SP)+ 

INC.ARR.ARRSBNK.SEL 
#22, SP 
R1 

R1 ,R4 
1 $ 

#END.MSG,(SP) 

#ONE.NSG,-(SP) 

#2,-(SP) 

SP, RO 
14 

#RET. DRS. MSG, (SP) 

#ONE.MSG,-(SP) 

#2,-(SP) 


^SUNIT.RO 


51 

44 

#22, SP 
PC 


; Routine Size: 169 words 
; Maxim* stack depth per invocation: 22 words 


16:07:57 

15:44:41 


TOPS-20 Bliss-16 V2C212) 

PA : <NEALE>PNSKL4 .BL I . 1 (58) 


Page 250 
SEO 0285 


7237 

7242 


; SP,* 


; ARR.SEL 
; ARR.SEL,* 

a 

; SP,* 

# 

; SP,* 


7269 

7270 
7021 



BSKEL4 

REV B PATCH 00 MAIN PROM MA1NT CONTROL CODE 


C 7 

18-Mar-1982 

18-Mar-198* 


16:07:57 TOPS-20 Bliss-16 V2<212) 
15:44:41 PA : <NEALE >PM$KL4 . BL 1 . 1 (58) 


Page 251 
SEQ 0286 


031364 004767 177252 
031364 

031370 104466 
031372 006000 
031374 103773 
031376 000207 

; Routine Size: 6 words 
; Maximum stack depth per invocation: 


.SBTTL T1 MAIN PROM MAINT CONTROL CODE 

JSR PC.ST1 

TRAP 66 

ROR R 0 

BLO IS 

RTS PC 


0 words 






D 7 




I BSKEL4 




18-Mar-1982 1< 

5:07:57 

TOPS-20 Bliss-16 V2(212) 

Page 252 

I REV B 

PATCH 00 

CLEAN UP CODE SECTION 


T8-Mar-1982 1 

5:44:41 

PA:<NEALE>PMSKL4.BLI.1 (59) 

SEQ 0287 


7273 

Xsbttl 'CLEAN UP CODE 

SECTION' 






7274 

1 







7275 

! Clean up code section 






7276 

1 







7277 

BGNCLN; 







7278 

CLR ®US; 







7279 

ENDCLN; 









.SBTTl 

LCLEAN CLEAN UP CODE 

SECTION 



031400 

010146 


LCLEAN: MOV 

RI.-(SP) 



7272 

031402 

016700 

040374' 

MOV 

ML.ADDR.RO 



7277 

031406 

016046 

000010 

MOV 

10(R0).-(SP) 


; *,ML.REG 


031412 

011601 


MOV 

(SP).RI 


; ML.REG.MLREG 


031414 

152701 

000040 

BISB 

#40,R1 


; *, MLREG 


031420 

016700 

040374' 

MOV 

ML.ADDR.RO 




031424 

010160 

000010 

MOV 

ri,io(r6> 


; MLREG,* 


031430 

016700 

040374' 

MOV 

ML.ADDR.RO 




031434 

016046 

000010 

MOV 

10(R0),-(SP> 


; *,ML.REG 


031440 

012601 


MOV 

<SP)+, R1 


; ML.REG.MLREG 


031442 

016700 

040400' 

MOV 

ML.DUT.RO 




031446 

042700 

177770 

BIC 

#1 77770.R0 




031452 

142701 

000007 

BICB 

#7,R1 


; *. MLREG 


031456 

050001 


BIS 

R0.R1 


; *, MLREG 


031460 

016700 

040374' 

MOV 

ML.ADDR.RO 




031464 

010160 

000010 

MOV 

R1,10(r6) 


; MLREG.* 


031470 

005726 


TST 

(SP) + 


• 

7272 

031472 

012601 


MOV 

(SPJ+.R1 




031474 

000207 


RTS 

PC 




; Routine Size: 

31 words 






; Maximum stack depth per invocation: 

4 words 








.SBTTL 

LSCLEAN CLEAN UP CODE 

SECTION 



031476 

004767 

177676 

LSCLEAN: : 








JSR 

PC, LCLEAN 



7278 

031502 

104412 


TRAP 

12 




031504 

000207 


RTS 

PC 




; Routine Size: 

4 words 






; Maximum stack depth per invocation: 

0 words 





• 

7280 

end 







7281 







9 

7282 

eludom 









; OTS external 

references 



j 



BSKEL4 

REV B PATCH 00 


CLEAN UP CODE SECTION 


E 7 

18-Har-1982 16:07:57 T0PS-20 Bliss-16 V2(212) Page 253 

18-Har-1982 15:44:41 PA:<NEALE>PNSKL4.BLI .1 (59) SEQ 0288 

.GLOBL BLSGT2. SSAVE5, SSAVEA, JSAVE3 
.GLOBL SSAVE2, BLSPU2. BLSGT1 , BLSDIV 
.GLOBL BLSNOD 


Size: 6563 code ♦ 9592 data words 

Run Tine: 01 :20.5 

Elapsed Time: 03:07.8 
Memory Used: 133 pages 

Compilation Complete ! 


i 


f 7 


SL 

PmskU 

76 

81 

97 

A 

PmskU 

3447 

3492 

3601 



5079 

5107 

5136 

ABORT MSG 

PmskU 

591# 

5750 


ADJACPNT.CNT 

PmskU 

2348 

2392# 

2411# 

ALL 

Pmskl2 

20 




Pmskl4 

189# 

1310 


ALL.BAD 

PmskU 

3157 

3238# 

3240 



3292 

3360# 

3368 



3546 

3548 

3551 



4380 

4383# 

4403 

ALL_BAD_CNT 

Pmskl4 

2222 

2277 


AOE 

PmskU 

285# 



ARRJBNK.SEI. 

PmskU 

527 

3708 

3766 



5 242 

5277 

5281 



5753 

5761 

5765 

ARRSSEL SIZE 

Pmskl4 

113# 

3766 

4016 

ARR HWTBl 

PmskU 

5329 

5388# 

5463 

ARR'MO HWTBL 

PmskU 

5332 

5391# 

5469 

arr'nuR 

PmskU 

3999 

4016# 

4104 

ARRSSEL 

PmskU 

4339 

4343# 

4401 

ARR.SEL.POS 

PmskU 

531 

3766 

4016 



5480 

5731 


ARR SEL PRINT 

PmskU 

617# 

5731 


ARR’TYP 

PmskU 

305# 



as Print 

PmskU 

632# 

727 


atTn 

PmskU 

271# 



ATTN REG 

PmskU 

295# 



ABC PRINT 

PmskU 

621# 

4419 

4841 

A B N'PRINT 

PmskU 

6 22# 

4104 

4150 

A B PRINT 

PmskU 

624# 

5214 

5232 

a.hOtbl 

Pmskl2 

59 



Bto.BITS 

PmskU 

4469 

4533# 

4537 

BAO.BNK REG 

Pmskl4 

537 

4025# 

4896 

BAO.CHlP 

PmskU 

1759 

1847 

1851 



1914 

1922 

1929 



1997 

2004 

2012 



2118 

3157 

3270 



4383 

4399 

4419 



4845 

4846# 

4848 

BAE.REG 

PmskU 

401# 



BAI 

PmskU 

266# 



BA PRINT 

PmskU 

627# 

722 


BA REG 

PmskU 

246# 

899 

939 

bgRao 

PmskU 

198 



BGNAUTO 

PmskU 

165 



BGNCLN 

PmskU 

5788 



BGNDU 

PmskU 

181 



BGNHRO 

PmskU 

33 



BGNHW 

Pmskl? 

56 



BGN1NIT 

PmskU 

5322 



BGNMSG 

Pmskl4 

717 



BGNPROT 

Pmskl2 

106 



8GNRPT 

PmskU 

139 



BGNSFT 

PmskU 

114 



BGNSW 

Pmskl2 

J 8 



8GNTST 

PmskU 

5537 



BGNMSG 

Pmskl4 

575# 

5705 


bit! PM 

PmskU 

419# 

794 

4399 

BITS TSTED 

Pmskl4 

4466 

4524# 

4540 


4888 

4905 

4937 

4960 

4983 

5002 

5019 

5 SEQ 0289 

2433 

3242 

3268 

3269 

3270 

3276 

3277 

3278 

3290 

3370 

3373 

3374 

3375 

3388 

3460 

3462# 

3544# 

3557 

4407 

3560 

4410 

3563 

3660 

4341 

4354# 

4365 

4372# 

3938 

4014 

4015 

4016 

5037 

5076 

5150 

5195 

5286 

5766 

4343 

5314# 

5772# 

4841 

5417# 

5469# 

5480# 

5482# 

5721 

5731 

5076 

5195 

5277 

5469 

5480 

5731 

5480 

4150 

4191 

4232 

5187 

5275 

5277# 

5296 

5305 


4419 

4426 

5195# 

5195 

5197 

5214 

5232 

5713 

4343 

4841 

5076 

5277 

5431# 

5441# 

5469 


4191 

4232 







5082 

5283 

5717# 

5755 





1858 

1862 

1869 

1877 

1884 

1892 

1899 

1907 

1937 

1944 

1952 

1959 

1967 

1974 

1982 

1989 

2019 

2027 

2034 

2042 

2049 

2053 

2064 

2117 

3278 

3292 

3375 

3390 

3563 

4279 

4354 

4372 

4805 

4808# 

4810 

4827 

4828 

4831 

4836 

4842 

1113 

M86 

1248 







4547 # 



1 ) 7 


SEQ 0290 


2346 

2406# 

2408 

2420 

2421 

2426 

2427 

3451 

3580 

2199 

2292# 

3584 

2200 

2862 

4130# 

3592 

3596 

4535 

4537 

4540 


3870 

3872# 

3933# 

4037 

4050 

4070 

4127 

415' 

4159# 

4173 

4176# 

4197 

4200# 

4241# 

4254 

4257# 

4903 

4909 

4934# 

4935 

4957# 

4999# 

5000 

5016# 

5017 

5025# 

5026 

5091 

5096 | 

4344 

4842 

5281 

5482 

5735 




2292 

2809 

2862 

3818 

3870 

3872 

3873 

3878 

4015# 

4020 

4022 

4025 

4037 

4041 

4050 

4054 

4087 

4104 

4105 

4110 

4113 

4127 

4130 

4150 

4173 

4176 

4191 

4192 

4197 

4200 

4213 

4216 

4241 

4254 

4257 

4272 

4275# 

4340 

4344# 

4400 

5281# 

5283 

5301 





4142 1 

1608 

1659 

2178 

2388 

3470 

3762 

4060 

4699 

5072 

5192 

5430# 

5440# 



4999 

4909 

4934 

4935 

4957 

4958 

4980 

4981 

5025 

5026 





5735 


4344 

4842 

5281 

5432# 

5442# 

5482 


4499 

4636 

4669 

4701 

4821 

5715 


1 

990 

991 

993# 

997# 

4527 

4530 

4533 



B 2 

B 20 

B.21 

B.22 

BI23 

B.24 

BZ25 

B 26 

B~27 

B 28 

B 29 

BI3 

B.30 

B 31 

B 32 

BI33 

Bl34 

B~35 

BI36 

BI37 

B~38 

B.4 

B~5 

B.6 

B~7 

B.8 

B.9 

B HWTBL 
CJU.CHK.SUN 
CHAR 
CHIP.TBL 


CHIC SUM.CNT 
CLR 

CLR.DRIVE 

CLR.FLG 


CLR.NBUS 
CLR SEC.ROW 

cnr 

COL 

COL 0 127 OFF 
COLI128 235.0FF 
COL.BASE 

COL.CNT TBL 
COLlDESC PRINT 
COL.INDEX 
COL NOST.OFTEN 
COL .NUN 


PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnsklA 

PnsklA 

PnskU 

PnskU 

PnskU 

PnsklA 

PnsklA 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

Pnskl2 

PnskU 

PnskU 

PnskU 


PmsklA 

PnskU 

PnskU 

PnskU 


PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 

PnskU 


339# 

349# 

350# 

351# 

352# 

353# 

354# 

60 

4853* 

388# 

511 

1737# 

1869 

1952# 

2034 

4884 

264# 

674# 

148# 

1967 

3585 

4767 

668 # 

4735 

3571 

2277 

4911 

164# 

3996 

3997 
517 

4213 

493 

639# 

3454 

3213 

2358 

3376 

4127 

5116 


5760 

4506 

1310# 

1740# 

1877# 

1959 

2042# 

4900# 

669 

1851 

1982 

3593 

4813 

894 

5147 

3572 

2287 

4913 

2412 

4031# 

4032# 

2292 

4216 

1392# 

719 

3613# 

3255 

2367 

3805 

4130 

5119 


1702# 

1743# 

1884 

1967# 

2049 

4915# 


1852 

1997 

3597 

4820 

934 

5240 

3579 

2289 

2413 

4052# 

4085# 

3810 

4254 

2367 

3615# 

3277 

2376 

3807 

4171 

5123 


H 7 


SEO 0291 


1713# 

1716# 

1719# 

1722# 

1725# 

1728# 

1731# 

1734# 

1746# 

1749# 

1752# 

1755# 

1847 

1851# 

1858 

1862# 

1892# 

1899 

1907# 

1914 

1922# 

1929 

1937# 

1944 

1974 

1982# 

1989 

1997# 

2004 

2012# 

2019 

2027# 

2053# 

3704 

4602 

4831 

4845# 




4916# 

4917# 

4918# 

4919 





1862 

1863 

1877 

1892 

1907 

1922 

1937 

1952 

2012 

2027 

2042 

2053 

3276 

3373 

3572 

3581 

4113 

4845 

1000 

5789 

3580 

4130 

4159 

4176 

4200 

4216 

4241 

4257 

1075 

1108 

1182 

1243 

2220 

3816 

4523 

3583 

3584 

3591 

3592 

3595 

3596 

3934 

2292 

3863 

3870 

3872 

3873 

3931 

3933 

2516 

2726 

2964 

2993 

2996 




4056# 

4093 

4098 






4089# 

4094 

4095 



4130 

4173 

4176 

4050 

4054 

4083 

4087 

4127 

4257 

5119 

5125 

5228 

5427# 

5437# 



2433 

3357 

3376# 

3566# 

3644# 




3621# 

3282 

2379 

3623# 

3629# 

3631# 

3637# 

3639# 

3644 

3646 

2386 

2412 

2413 

2433 

3345 

3357 

3374 

3810 

4047 

4050 

4054 

4080 

4083 

4087 

4125 

4173 

4176 

4211 

4213 

4216 

4252 

4254 

4257 

5125 

5222 

5224 

5228 







COL.PTR 

PnskU 

496 

I486* 

3566 

COL PURGE 

PnskU 

2448* 

3282 


COL SEL 

PnskU 

2448 

2516 


COL SORT 

PnskU 

2663* 

2977 

3282 

COL SUM 

PnskU 

3215 

3255 

COMP ERR 

PnskU 




CON X.MSG 

PnskU 

4418 


CON.B.MSG 

PnskU 

584# 

4425 


CON.C.MSG 

Pmskl4 

585# 

4103 

4149 

CON D MSG 

Pmskl4 

586# 

5213 

5231 

copTeB.rem.tbl 

Pmskl4 

495 

1439# 

2413# 

COPY 

PnskU 

2802# 

2550 

if??* 

3088 

m 

CORRECT.HWTBL 

PnskU 

5336 

5395# 

CPAR 

PnskU 

288# 



CRC 

PnskU 

$g7# 

4503 


CRCtA 

PnskU 

328# 



CRCS6 

PnskU 

340# 



CRC A 

PnskU 

134# 



CRC.B 

PnskU 

135# 

4599 

4628 

4676 

CRC.NIB8LE 

PnskU 

136# 

4644 

CRC.P 

PnskU 

133# 

4599 

4628 

CRC SEL 

PnskU 

4599 

4602 

4628 

crlf 

PnskU 

609# 

775 

781 

CS1.PRINT 

PnskU 

625# 

720 


CS2 PRINT 

PnskU 

629# 

724 


CS3 REG 

PnskU 

405# 



CUR.MOST 

PnskU 

2945 

2996# 

3007 

CUR.SUM 

PnskU 

2943 

88* 

2997# 



3127 

3134# 

C.HWTBL 

Pmskl2 

61 



D 

Pmskl3 

75 

80 


DATA 

PnskU 

1002 

1041 

m 

DAT CLK 

PnskU 

689# 

89% 

DAT DM 

PnskU 

683# 

935 

da Print 

PnskU 

628# 

72 3 


DA~REG 

PnskU 

250# 

898 

938 

DeT REG 

PnskU 

361# 

989 

1041 

D62_REG 

PnskU 

381# 

990 

1042 

DCK 

PnskU 

281# 



DCK EN 

PnskU 

693# 



DEGRADE MOD REG 

PnskU 

539 

4105# 

4151# 

DELAY 

PnskU 

3791 

3809 

5098 

DESCRIPT 

Pnskl3 

16 



DEVTYP 

PnskU 

13 



DFPTBL 

Pnskl2 

56 



DIAG.REG.SEL 

PnskU 

2107 

2136# 

2140# 

DIF 

PnskU 

2947 

2965# 

3001# 

DIF_COLS 

PnskU 

3210 

3255# 

3265 

DIF ROUS 

PnskU 

3211 

3257# 

3265 

DISXBE 

PnskU 

150# 


DISPATCH 

Pnskl2 

34 



DLT 

PnskU 

254# 



DM 10 LOAD 

PnskU 

1002* 

1850 

1861 

dfTrXnC_load 

PnskU 

942* 

1876 

1891 



2026 

2041 

2052 

DM RD TRANSFER 

PnskU 

862* 

2160 

4626 

DM WRT TRANSFER 

PnskU 

902* 

976 

1035 

doCln 

PnskU 

1126 

1145 

1195 

DOOU 

PnskU 

1125 

1144 

1194 


SEQ 0292 


I 7 
3646 # 

3283 


4190 4231 


2421# 

3117 

2653 

BS* 

2551# 

2618 

2640# 

2653 

2798 

2801 

4708 







1 

I 

4651 

801 

U? 

4715 






m 

3146 

I 

iiis 



3067 

3086# 

3121# 

1043 

2190 

1073 

4642 

1615 

4674 

1652 

4706 

5097 

5126 



1112 

1185 

1247 






4192# 

5127 

4233# 

5148 

4421# 

5208 

5215# 

5226 

5233# 

5301 

5716# 


2199 

3031 

3071 

3089# 

3125# 

3155 




4614 

1906 

4621 

4617 

1921 

1936 

1951 

1966 

1981 

1996 

2011 

1208 

1207 

1257 

1256 

1270 

1269 

5361 

5360 

m 

5410 

5409 

5498 

5497 

5782 

5781 




DONE HRD 

Pmskl3 

71 

97 


DPAR 

PmskU 

287* 



OPR 

Pmskl4 

275* 



DRVTYP 

PmskU 

318* 



DRV PRAM 

Pmskl3 

57 

81 


DRV SEL 

PmskU 

267* 

670 

896 

DRV SEL PRINT 

PmskU 

615* 

5706 


DRY 

PmskU 

276* 

1133 

1200 

DSJ#eR_OF TESTS 

Pmskl2 

8* 

34 


DST 

PmskU 

544 

862 

899 



1212 

1248 

1610* 

DS PRINT 

PmskU 

630* 

725 


DT PRINT 

PmskU 

634* 

729 


DT’REG 

Pnskl4 

319* 



DUftPER 

Pnskl4 

717 

1123 

1142 

OUT HWTBL 

PmskU 

5334 

5393* 

5419 

DVA 

Pmskl4 

234* 



D 2 PRINT 

Pmskl4 

614* 



d'cDc 

Pmskl4 

309# 

690 

5100 

D.DN 

PmskU 

310* 

684 


D.EN 

Pmskl4 

311* 

694 


D HWTBL 

Pmskl2 

62 



E 

Pmskl4 

442 

450 


E1.REG 

Pmskl4 

329* 



E2 REG 

Pmskl4 

341* 

991 

1043 

ECC.DIS 

PmskU 

685* 

1109 

1244 

ECC.DN 

PmskU 

695* 



ECH ERR 

PmskU 

286* 



EE.PRINT 

PmskU 

636* 

731 


EF START 

PmskU 

5355 



EL’PRINT 

PmskU 

637* 

732 


EL"REG 

PmskU 

393* 



enXbe 

PmskU 

149* 

895 

935 

END AU 

Pmskl3 

200 



ENDAUTO 

Pmskl3 

167 



ENOCLN 

PmskU 

5790 



END DU 

Pmskl3 

183 



ENDHRD 

Pmskl3 

99 



END MW 

Pmskl2 

68 



ENDINIT 

Pmskl4 

5532 



ENOMSG 

PmskU 

733 



ENDPROT 

Pmskl2 

113 



ENDRPT 

Pmskl3 

149 



ENDSFT 

Pmskl3 

127 



ENDSW 

Pmskl2 

93 



ENDTST 

PmskU 

5783 



END NSG 

PmskU 

579* 

5779 


END SEC 

PmskU 

2350 

2381* 

2388* 

ENTER BOARD 

Pmskl3 

62 

76 


EQUALS 

Pmskl2 

18 




Pmskl3 

4 




PmskU 

552 



ERROR.NAP 

PmskU 

507 

1527 

2205* 



3755 

3792* 

3810* 



4087 

4891 

4935* 

ERRSF 

PmskU 

1123 

1142 

1192 



4425 

4840 

5103 



5493 



ERRTBL 

Pmskl2 

37 



ERR.1 

PmskU 

96* 

5358 



SEO 0293 


J 7 
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1982 








RAN 9 

PmskU 

183# 

1743 

1989 

1997 








RDY" 

PmskU 

235# 











RD BUF 

PmskU 

503 

2160 

4525 

4530 

4533 

46?6 






RD OLD PROM DATA 

PmskU 

3708* 

4014 










RD PROAMODP 

PmskU 

679# 

3764 

5194 









RD TRANSFER 

PmskU 

1212* 

4525 










RD'XFER MSG 

PmskU 

598# 

1255 

1268 









REfoEF 

PmskU 

5355 











REF MAR 

PmskU 

306# 











REMAINDER 

PmskU 

4885 

4919# 

4921 

4929# 

4931 

4944 

4952# 

4954 

4967 

4975# 

4977 



4994# 

4996 

5011# 

5013 








REM PTR 

PmskU 

2296 

2412 

2413 

2420 

2421 

2426 

2427 

2431# 

2446 



REFfTBL 

PmskU 

494 

1438# 

2412# 

2420# 

2426# 

2516 

2538# 

2551 

2653# 

2726 

2730 



2731# 

2732# 

2964 

2993 

2996 







REP M7363 MSG 

PmskU 

595# 

5104 

5133 









REPlPRJNT 

PmskU 

623# 

4426 

5296 

5305 









RET DRS MSG 

PrnskU 

581A 

5376 

5408 

RH “ 

PrnskU 

44 2* 

448 

521 

RH BASE HWTBL 

PrnskU 

5333 

5392# 

5418 

RMff 

PrnskU 

289# 



ROW 

PrnskU 

163# 

2420 

2421 

ROW 0 127 OFF 

PrnskU 

3994 

4029# 

4039# 

R0W“128 255 OFF 

PrnskU 

3995 

4030# 

4072# 

ROW'CNT” 

Pmskl4 

3452 

3504# 

3519# 

ROW~MOST OFTEN 

Pmskt4 

3212 

3257 

3269 

ROW’NUM “ 

PrnskU 

2188 

2199 

2203 



3490 

3491 

3557 



4034 

4037 

4041 



4159 

4195 

4197 



5204 

5206 

5210 

ROW PURGE 

PrnskU 

2561* 

3271 


ROW'SEL 

Pmskl4 

2561 

2618 


ROW'SORT 

Pmskl4 

2738* 

3101 


ROW* SUM 

PrnskU 

3214 

3257 

3271 

ro.Cl 

PrnskU 

165# 

1438 

1439 



2802 

2803 


R C 

Pmskl4 

221# 

2287 

3268 

R'C NO 

PrnskU 

220# 

2289 

2292 

S 

PrnskU 

442 

450 


SC 

Pmskl4 

231# 

1116 

1135 

SEARCH 

Pmskl4 

2855 

2862 


SEC.CNT 

PrnskU 

983 

1054 

1608 



4699 



SEC.NUM 

Pmskl.4 

2178 

2205 

2399 



3621 

3629 

3637 

SEEOI 

Pmskl4 

468 

842 

4472# 

SEE02 

Pmskl4 

469 

843 

4473# 

SEE03 

PrnskU 

470 

844 

4474# 

SEl_BNK 

PrnskU 

3775 

3778 

3792 



5125 

5199 

5202 

SERIAL REG 

Pmskl.4 

323# 



set.flG 

Pmskl4 

1 47# 

1702 

1713 



1 i 40 

1743 

1746 



1953 

1968 

1983 



2293 

3268 

3551 



4515 

4928 

4951 

SFPTBL 

Pmskl2 

88 



SGL 

PrnskU 

386# 



SIZE 

PrnskU 

543 

862 

897 



1212 

1246 

1610# 

SIZING 

PrnskU 

303# 

5456 


SN PRINT 

Pmskl4 

635# 

730 


SRC 

PrnskU 

545 

1212 

862 

1247 

898 

1610# 

START 

Pmskl4 

3662 

3702 


START MSG 

PrnskU 

576# 

5359 


START'SEC 

PrnskU 

2349 

2380# 

2385# 

SUMS PM 

PrnskU 

421# 

795 

4403 

SUMMARY 

Pmskl3 

6* 

146 



PrnskU 

736* 



SUM MOST 

Pmskl4 

2E68 

3030# 

3033 

SUPRES MSG 

PrnskU 

580# 

5105 

5134 

SWTBL$~RET 

Pmskl2 

91 



SW BUG”MSG 

PrnskU 

590# 



sy3 hwTbl 

Pmskl4 

5328 

5387# 

5452 

S BCAST_TBL 

Pmskl4 

2809* 

4022 



5496 

5780 






SEQ 0299 

2426 

4043# 

4076# 

2427 

2618 

2798 

3088 

3117 

3120 


4094 

4098 






4093 

4095 






3539# 

3271 

2204 

3541 







2347 

2379# 

2386# 

2401 

2406 

2439# 

3488 

3560 

3613 

3621 

3629 

3637 

3787 

3789 

3792 

4064 

4070 

4074 

4108 

4110 

4113 

4154 

4156 

4200 

4236 

4238 

4241 

5088 

5091 

5094 

5096 


3272 

2538 

2551 

2640 

2653 

2730 

2731 

2732 

2801 

3276 

3269 

3373 

3277 

3551 

3374 

3557 

3560 




1189 

1202 

1251 

1264 





1610 

1659 

1660 

4497 

4500 

4525 

4634 

4667 

2403 

2408 

2415 

3533 

3536 

3553 

3608 

3613 

4595# 

4596# 

4597# 

3810 

5210 

4817# 

4818# 

4819# 

4018 

5214 

5078 

5215 

5082 

5228 

5086 

5232 

5091 

5233 

5096 

5279 

5119 

1716 

1749 

1998 

4025 

4974 

1719 

1752 

2013 

4105 

4993 

1722 

1755 

2028 

4151 

5010 

1725 

1878 

2043 

4192 

5024 

1728 

1893 

2054 

4233 

5106 

1731 

1908 

2205 

4420 

5135 

1734 

1923 

2206 

4421 

5215 

1737 

1938 

2290 

4427 

5233 

902 

1660# 

937 

2160# 

976# 

4500# 

1035# 

4525# 

1077 

4626# 

1111 

1151 

1184 

902 

1660# 

939 

2160# 

976# 

4501# 

1035# 

4525# 

1077 

4626# 

1113 

1151 

1186 

2399 

3458 

3507# 

3513# 

3522# 

3528# 

3533 


3154# 

5375 

5407 

5495 







b BUF INDEX 

PmskU 

970 

974# 

975 

S'CHlP TBL 

PmskU 

3662* 

4808 

4846 

S„C0LUANS 

PmskU 

2868* 

3255 


S COL CNT TBL 

PmskU 

3292* 

4372 


S ERROR M*P 

PmskU 

3390* 

4354 


S*REM TflL 

PmskU 

3157* 

4383 


S'ROWS 

PmskU 

3033* 

3257 


T0L.INDEX 

PmskU 

1309 

1310 

1353 



1526# 

1527 

1563# 

TEMP 

Pmskl4 

2694 

2730# 

2732 

TEMP.ARRSBNK.SEL 

PmskU 

942 

976 

1002 



1876 

1891 

1906 



2041 

2052 

2064 



4485 

4488 

4492 



4769 

4771 

4775 



5736 

5737 

5738# 

TEMP TSTEO BNK 

Pmskl4 

5697 

5720# 

5739# 

TEN 0$ 

PmskU 

142# 

5148 


THREE MSG 

PmskU 

607# 



TIME OUT MSG 

Pmskl4 

594# 

5103 

5132 

TMP.0LST.T8L 

Pmskl4 

515 

1354# 

2287 



3373# 

3374# 

3375# 

TRE 

Pmskl4 

232# 



TRT 

Pmskl4 

304# 



TRUE 

PmskU 

128# 

2862 


TSTEO BNK 

Pmskl4 

528 

3938 

4018 

TWO MSG 

Pmskl4 

606# 



UNC" 

PmskU 

385# 

4512 


UNC.CHIP MSG 

PmskU 

587# 

4840 


UNC.ERR0SG 

PmskU 

593# 

5295 


UNITS PB 

PmskU 

420# 

791 

4402 

UNIT.5EL.MSG 

PmskU 

589# 

5345 


UNS 

Pmskl4 

282# 



UNX.ORV.ERR.MSG 

Pmskl4 

59 7# 

1123 

1142 

VER BLAST 

Pmskl4 

5150* 

5765 


VER ERROR MASK 

VV 

Pnskl4 

Pmskl4 

5242* 

277# 

5766 


WCE 

P»skl4 

255# 

1120 

1139 

WC PRINT 

PmskU 

626# 

721 


WC REG 

PmskU 

242# 

897 

937 

WRD 

Pnskl4 

212# 

989 

990 

VROS 0 

Pmskl4 

4 22# 

5528 


WRDS 1 

Pmskl4 

423# 

5529 


WRD.lNT 

Pmskl4 

853 

987 

1056 



4703 

4712 


WRD.INOEX 

PmskU 

2104 

2203# 

2205 



3450 

3490# 

3536 

WRT.0UF 

PmskU 

502 

84 2# 

843# 


1610 

1652# 

1660 

WRT CHK TRANSFER 

PmskU 

1077* 

4500 


VRT^PROfl MODE 

PmskU 

681# 

5074 


WRT.RH 

PmskU 

655# 

669 

670 



694 

696 

896 



940 

989 

990 



1114 

1183 

1184 



3790 

3808 

5095 

WRT TRANSFER 

PmskU 

1151* 

1610 

1660 

WRT XFER MSG 

PmskU 

599# 

1193 

1206 

WT CHK XFER MSG 

PmskU 

600# 

1124 

1143 

X 

PmskU 

683 

684 

685 



SEQ 0300 


0 8 

996# 99 7 

5288 


1354 

1391 

1392 

1436 

1438 

1439 

1485 

1486 

1564 

3702 

3704 




2766 

1035 

2801# 

2803 






1567 

1610 

1615 

1660 

1759 

1850 

1861 

1921 

1936 

1951 

1966 

4279 

1981 

1996 

2011 

2026 

2160 

2222 

2268 

4343 

4344 

4410 

4433 

4500 

4525 

4558 

4614 

4617 

4621 

4626 

5721# 

4737 

4827 

4828 

4836 

4841 

4842 

5698 

5735 

5741 








2289 

m, 

3268# 

3269# 

3270# 

3276# 

3277# 

3278# 

3551# 

3560# 

3563# 





5242 

5279 

5458# 

5468# 

5479# 

5720 

5753 

5766 

1192 

1205 

1254 

1267 





4520 








1111 

1184 

1246 






991 

1073 

1610 

1652 

4501 

4530 

4533 


1072 

1073 

1651 

1652 

4638 

4648 

4671 

4680 

2345 

2401# 

2403 

2408 

2420 

2421 

2426 

2427 

3572 

3580 

3584 

3592 

3596 




844# 

857 

976 

989 

990 

991 

1035 

1073# 

2199 

4501 

4530 

4533 

4648 

4680 

4712 


675 

680 

682 

684 

686 

688 

690 

692 

897 

898 

899 

900 

936 

937 

938 

939 

991 

1041 

1042 

1043 

1110 

1111 

1112 

1113 

1185 

1186 

1187 

1245 

1246 

1247 

1248 

1249 

5096 

5124 

5125 

5207 

5225 

5455 



686 

687 

688 

691 

69 2 

693 

694 

695 



t 8 


XFERF 
XFERT 
X.MS6 
X PRINT 

X THP BLST TBL 
X TO.REH.TBL 
YfS 
ZERO 


Pmskt3 
Pmskl3 
PmskU 
Pinsk 14 
PmsklA 
PmskU 
Pmskl3 
PmskU 


ZEROES 


PmskU 


696 

71 

57 

601* 

640* 

2222 * 

2296 * 

87 

65* 

2367 

3519 

4031 

4244 

4903 

5007 

5741 

64* 

3765 

5716 


SEQ 0301 


4410 

3219 

98 

7^2 

2385 

3536 

4032 

4248 

4907 

5013 

5755 

1310 

4472 

5717 


2161 

2199 

2200 

2205 

2289 

2293 

2862 

2964 

3088 

3218 

3229 

3504 

3592 

3596 

4167 

3777 

3870 

4029 

4030 

4163 

4179 

4203 

4207 

4220 

4608 

4808 

4810 

4817 

4823 

4848 

4948 

4954 

4971 

4977 

4990 

4996 

5201 

5288 

5369 

5371 

5528 

5529 

1439 

1486 

1527 

1564 

1850 

3376 

4524 

4614 

4831 

5075 

5196 

5417 


f b 


PSECT Storage Map 


Name 

Loc 

002000 

Length 

000000 

/Start 

(CODES 

002000 

033016 

002000 

002200 

002512 

002560 




002666 




002772 

003310 

(OWNS 

035016 

040440 


SPLITS 

075456 

005450 

075456 

076206 

SXXXS 

103126 

000324 

103126 

103224 




103332 

SXYZS 

103452 

000010 

103452 

. ABS. 

103462 

000000 



Length 

File 

Module 

Ident 

000200 

000312 

PMSKL2 

BSKEL2 

REV B 

PMSKL3 

BSKEL3 

REV B 

000046 

B16R0T 

B16R0T 

2.6 

000106 

B16PG2 

B16PG2 

2-* 

000104 

B16PG4 

B16PG4 

c. A 

000316 

B16MUL 

B16MUL 

2.7 

031506 

PM5KL4 

BSKFL4 

REV B 

000530 

PMSKL3 

BSKEL3 

REV B 

004720 

PMSKL4 

BSKEL4 

REV B 

000076 

RANDOM 

RANDOM 

2.3 

000106 

B16SAV 

B16SAV 

000120 

B16PN1 

B16PN1 


000010 

LSTAD 

LSTAD 

NONE 


SEQ 0302 



Hap of Global Symbols 


Name 

SSAVE2 

SSAVE3 

SSAVE4 

SSAVE5 

BLSDIV 

8LSGT1 

BLSGT2 

blsmod 

BLSPU2 

BLSSHF 

ISAU 

LSAUTO 

lsclea 

LSDESC 

LSDLY 

LSDU 

LSDVTY 

l SHARD 

LSIN1T 

LSLAST 

LSRPT 

LSSOFT 

LSUNIT 

RAM) AT 

R AMGEN 

SEED1 

SEED2 

SEED3 

SUMMAR 

TSPTHV 

T1 


Value 

000000 

000014 

000032 

000052 

00022A 

000000 

000000 

000236 

000000 

000250 

000302 

000256 

031476 

000040 

000116 

0C0270 

000000 

000102 

030632 

000004 

000244 

000226 

000012 

000074 

000000 

000066 

000070 

000072 

000570 


PSECT 

$XXX$ 

sxxxs 

$xxx$ 

sxxxs 

SCODES 

sxxxs 

SCODES 

SCODES 

SCODES 

SCODES 

SCODES 

SCODES 

SCODES 

SCODES 

SCODES 

SCODES 

SCODES 

SCODES 

SCODES 

SXYZS 

SCODES 

SCODES 

SCODES 

SXXXS 

SXXXS 

SXXXS 

sxxxs 

sxxxs 

SCODES 


Nodule ABS Value 
B16SAV 103224 SCODES 
B16SAV 103240 SCODES 
B16SAV 103256 SCODES 
B16SAV 103276 SCODES 
B16MUL 003216 SCODES 
B16PN1 103332 SCODES 
B16PG2 002560 SCODES 
B16MUL 003230 SCODES 


031364 SCODES 


B16NUL 003230 SCODES 
B16PG4 002666 SCODES 
B16NUL 003242 SXXXS 
BSKEL3 002502 SCODES 
BSKEL3 002456 SCODES 
BSKEL4 035006 SCODES 
BSKEL3 002240 SCODES 
BSKEL2 002116 SCODES 
BSKEL3 002470 SCODES 
BSKEL3 002200 SCODES 
BSKEL3 002302 SCODES 
BSKEL4 034142 SCODES 
LSTAD 103456 SCODES 
BSKEL3 002444 SCODES 
BSKEL3 002426 SCODES 
BSKEL2 002012 SCODES 
RANDOM 103222 SCODES 
RANDOM 103126 SCODES 
RANDOM 103214 SCODES 
RANDOM 103216 SCODES 
RANDOM 103220 SCODES 
BSKEL4 004100 SCODES 
LSTAD 000000 SCODES 
BSKEL4 034674 SCODES 



